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PREFACE 


Final report of Asymmetrical Booster Ascent Guidance and Control System Design 
Studies performed under Contract NAS9-13568 are contained in five separate 
volumes identified as follows: 

Volume I - Summary 

Volume II - SSFS Math Models - Ascent 

Volume III - Space Shuttle Vehicle SRB Actuator Failure Study 
• Volume IV - Sampled Data Stability Analysis Program (SADSAP) - 
Users Guide 

Volume V - Space Shuttle Powered Explicit Guidance 


ABSTRACT AND ACKNOWLEDGMENTS 


Volume IV provides a users guide to the Sampled Data Stability 
Analysis Program (SADSAP). This program is a general purpose 
sampled data Stability Analysis Program capable of providing 
frequency response on root locus data. 

Acknowledgments are given to George Paulchak of Boeing Compute 
Services , Huntsville, Alabama, and Emmit Fisher of NASA/JSC 
for their programming support. 
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1.0 


INTRODUCTION & SUMMARY 


1.1 


The S Amp led Data Stability Analysis Program (SADSAP), formerly 
known as The Boeing-Huntsville Program BHA-369, was converted 
to the SBU 1110 EXECT 8 system. This program is a general purpose 
sampled data stability analysis program capable of providing fre- 
quency response and root locus data. The continuous system 
open loop and closed loop poles along with open loop zero's are 
also provided. 

The program accepts a general matrix format with polynomials of 
S (Laplace Operator) in each element location. The element location 
of the sampler is specified and the frequency options selected. 
Output includes frequency response data as a printout and/or a 
Nichols plot. 

A detailed description of program input requirements is provided in 
section 2.0; a discussion of technical methods in section 3.0; 
flow charts in section 4.0; a sample problem in section 5.0; and a 
complete program listing in section 6.0. 


Purpose 

The Sampled Data Stability Analysis Program, BHA-369, provides a 
computer tool for studying a digital control system which has a 
sampled data signal in the system. Conventional stabil ity. analysis 
tools assume continuous signals throughout the system and therefore 
are not applicable. 


BHA-369 computes R domain open loop frequency response and Z domain 
gain and phase root locus of a sampled data closed loop control : 
system. The control system definition includes the S-domain ^ ■ 
characteristic matrix, sampling device location, sample period, 
optional zero order hold circuit, and optional transport lag. / 
Output features of the program are Nichols plots, digital prinjtK 
of the frequency response and root locus analysis, and digital 
print of the partial fraction expansion of the open loop transfer 
function in the Z domain and R domain. 


"T 

} 


1.2 


Assumptions 

Sampled data open loop poles at the origin in the Z domain are roots 
which show little movement and affect insignificantly the movement 
of other roots. As such, these roots can be removed from the system 
prior to root locus analysis. Refer to section 3.5 for further 
discussion. 


The zero order hold circuit has the Laplace transformation 



where T equals the sample period. 


Transport lag is implemented into the system by the Laplace Trans 
formation e” T ° S where Tq is the transport lag. 


1-1 



1.3 


Li mi tations 

Only one sampling device can exist in the system. 

Analysis is restricted to systems which have the sampling device, 
zero order hold circuit, and transport lag in the same loop of 
the system block diagram. 

Frequency response analysis is computed only for the system opened 
at the sampling device location. 

Root locus analysis is computed only for the system with the gain 
factor implemented at the sampling device location. 

Number of continuous system open loop poles at the origin less the 
number of open loop zeros at the origin must be less than or equal 
to two. Implementation of a zero order hold circuit permits a 
maximum of three. 

Multiple non-zero continuous system open loop poles are not permitted. 
This is a restriction of the partial fraction expansion of thecon- 
tinuous system open loop transfer function. However, the rooting 
procedure in the program causes multiple non-zero roots to appear 
as clustered roots thereby circumventing the problem. Refer to 
section 3.4.6 for additional information. 

Frequency response of sampled data open loop transfer functions 
cycles every Hertz where T equals the sample period. Frequency 

intervals havi^been arbitrarily restricted to a maximum of 1 Hertz. 

T 


/ 
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2.0 INPUT DATA PREPARATION 


Input to the SADSAP Program consists of seven input sections which are sequentially input then repeated 
for multiple cases. Certain capabilities which are not now provided but might be built later if 
desired are provided for and labeled as "Dummy Routines". These routines were and are 
available in the original BHA-369 version, which is an IBM 360 version. 


SECTION 

I 

II 

III 

IV 

V 

VI 


CONTENTS 

STATUS 

Basic Input Data 

Required 

Nyquist Data 

Optional 

Root Locus Data 

Optional 

Continuous System Root Estimates 

Optional 

Continuous System Matrix 

Required 

Parameter Variations 

Optional 

Key Word 

Optional 


VII 



SECTION 

I - BASIC 

INPUT DATA - 

REQUIRED INPUT 


CARD 

COLUMNS 

FORMAT 

CONTENTS 

explanation 

1-1 

1-80 

20A4 

TITLE 

80 character case title. 

1-2 

1-40 

10A4 

TITLE 1 

40 character case title 


41-80 

10A4 

TITLE 2 

40 character case title 

1-3 

1-12 

E12.5 

TD 

Time delay 


21-28 

2A4 

NAME 

8 character name given to the open loop computation 


31-35 

15 

I OPEN 

Row location of sampling device 


36-40 

15 

JOPEN 

Column location of sampling device. 


41-45 

15 

NZT 

Number of sample periods. 1 <_NZT <50 


46-50 

15 

NRPOLE 

Maximum number of continuous system open loop poles 
to find - if input as zero, all poles will be found. 


51-55 

15 

NRZERO 

Maximum number of continuous system closed loop zeros 
to find - if input as zero, all zeros will be found. 


56-60 

15 

NRCLPL 

Maximum number of continuous system closed loop poles 
to find - if input as zero, all poles will be found. 

1-4 

1 

A1 

OPTZ 

Non-blank yields Z transformation without zero order 
hold device. 


n 

A1 

OPTZOH 

Non-blank yields Z transformation with zero order 
hold device. 


21 

A1 

OPTTRL 

Non-blank yields sampled data root locus. 


31 

A1 

OPTTP 

Non-blank yields sampled data root locus plots. 


41 

A1 

OPTPCH 

Non-blank generates punched cards of the continuous 
case matrix generated from raw data. 


51 

A1 

OPTPNT 

Non-blank yields printout of the continuous system 
characteristic matrix and open loop transfer function. 


61 

A1 

OPTBUG 

Non-blank yields debug printout in the rooting routine 

1-5 

1-12 

E12.5 

ZTVAL-i 

First sample period 


13-24 

El 2.5 

ZTVAL 2 

Second sample period 


25-36 

E12.5 

ztval 3 

Third sample period 


37-48 

El 2.5 

ZTVAL 4 

Fourth sample period 


49-60 

E12.5 

ZTVAL 5 

Fifth sample period 


61-72 

E12.5 

ztval 6 

Sixth sample period 


Data card format 1-5 is repeated until NZT sample rates have been input. 



SECTION II - NYQUIST DATA - OPTIONAL 

(omit section II if Nyquist analysis not desired) 

NOTE: . Frequency response of sampled data systems i 
the sample period, 

CARD COLUMNS FORMAT CONTENTS 

II-l 1-4 A4 REQEST 

21-24 A4 OPTINP 



31 

A1 

PN 


41 

Al 

PB 


51 

A1 

PI 80 


61 

Al 

NIC 

1 1-2 

1-5 

15 

NFI 

ri-3 

1-12 

El 2.5 

STRi 

STP-j 


13-24 

E12.5 


25-36 

E12.5 

PCT-i 

MINi 


37-48 

E12.5 


49-60 

El 2 * 5 

MAXi 

• 

65 

Al 

DP 1 

Repeat data card 

II-3 for i=l , 

2, ... 


NFI 


cyclic in frequency intervals of 1_ where T equals 

2T 

EXPLANATION 

Input the control word NYQUIST 
Nyquist input option selected by user: 

RETAIN -*■’ Retain Nyquist data from the previous case; 
omit data cards 2 and 3 of section II. 

Dummy Routine 

STANDARD + Implement standard Nyquist data; see 

Appendix E; omit data cards 2 and 3 of 
section II. Dummy Routine 
NEW + Input new Nyquist data as required by 
data cards 2 and 3 of section II. 

Non-blank yields Nyquist plot. Dummy Routine 
Non-blank yields Bode plot. Dummy Routine 
Non-blank yields 180 degree phase shift on all . 
computed Nyquist gains. 

Non-blank yields Nichols plot/ 


Number of Nyquist frequency intervals 

S domain start frequency in hertz of the i-th interval 
S domain stop frequency in hertz of the i-th interval 
Percent frequency increment within the i-th interval 
Minimum acceptable phase shift in degrees within the 
i-th interval 

Maximum acceptable phase shift in degrees within the 
i-th interval 

Non-blank yields detail print within the i-th interval 



SECTION III - ROOT LOCUS DATA - OPTIONAL 


(omit section III if root locus analysis not desired) 


CARD 

COLUMNS 

FORMAT 

CONTENTS 

EXPLANATION 

III-l 

1-4 

A4 

REQEST 

Input the control word ROOTvLOCUS 


21-24 

A4 

OPTINP 

Root locus input option selected by user: 


RETAIN + Retain root locus data from the previous case 
omit data cards 2 thru 8 of section III. 

STANDARD -* Implement standard root locus data; see 
Appendix E; omit data cards 2 thru 8 o+ 
section III. 

NEW -► Input new root locus data as required by 
data cards 2 thru 8 of section III. 


31 

A1 

PG 

Non-blank yields gain root locus; gain variations must 
exist or be input as new data. 

41 

A1 

PP 

Non-blank yields phase root locus; phase variations must 
exist or be input as new data. 

51 

A1 

PPLT 

Non-blank yields root locus plot; plot specifications 
must exist or be input as new data. Dummy Routine. 

Omit data cards 2 

and 3 of section III if PG input as 

blank. 

I I 1-2 1-5 

15 

NGAIN 

Number of gain variations 
1 <NGAIN<50 

III-3 1-12 

E12.5 

GAIN-. 

gain 2 

First gain value. 

13-24 

El 2. 5 

Second gain value. 

25-36 

E12.5 

gain 3 

Third gain value. 

37-48 

El 2. 5 

gain 4 

Fourth gain value. 

49-60 

E12.5 

GAINS 

Fifth gain value. 

61-72 

E12.5 

gain 6 

Sixth gain value. 

Repeat the format of data card 

III -3 until NGAIN gain 

values have been input. 

1 1 1 -4 1-5 

15 

NPHASE 

Number of phase variations 


1 <NPHASE<50 



ro 

i 

cn 


CARD 

COLUMNS 

FORMAT 

CONTENTS 

EXPLANATION 

II 1-5 

1-12 

El 2 .5 

PHASE-. 

phase 2 

First phase value in degrees. 


13-24 

E12.5 

Second phase value in degrees. 


25-36 

E12.5 

phase 3 

Third phase value in degrees. 


37-48 

El 2. 5 

PHASE 4 

Fourth phase value in degrees. 


49-60 

El 2. 5 

PHASE 5 

Fifth phase value in degrees. 


61-72 

E12.5 

PHASEg 

Sixth phase value in degrees. 


Repeat the format of 

data 

card III-5 until 

| | PHASE phase values have been input. 

Omit data 

cards 6 thru 8 

of section III of 

PPLT input as blanks. Dummy Routine. 

1 1 1-6 

1 

A1 

GSYM 

Symbol used to represent results from gain variations 
on the root locus plots; refer to Appendix D for possible 
selections . 


6 

A1 

PSYM 

Symbol used to represent results from phase variations 
on the root locus plots; refer to Appendix D for possible 
selections . 


11-15 

15 

NRLFR 

Number of plot frames to use for displaying root locus 
results 

1 <NRLFR<10 - 

III -7 

1-5 

15 

NGR-i 

ngr 2 

Number of grids on the first plot frame. 


6-10 

15 

Number of grids on the second plot frame. 


n-i5 

15 

ngr 3 

Number of grids on the third plot frame. 


16-20 

15 

ngr 4 

Number of grids on the fourth plot frame. 


21-25 

15 

ngr 5 

Number of grids on the fifth plot frame. 


26-30 

15 

ngr 6 

Number of grids on the sixth plot frame. 


31-35 

15 

ngr 7 

Number of grids on the seventh plot frame. 


36-40 

15 

ngr 8 

Number of grids on the eighth plot frame. 


41-45 

15 

NGRg 

Number of grids on the ninth plot frame. 


46-50 

15 

NGR] o 

Number of grids on the tenth plot frame. 
1 <NGRj <4 


Input NGR-j i = 1, 2, .... NRLFR 



CARD 

COLUMNS 

FORMAT 

CONTENTS 

III-8 

1-12 

El 2. 5 

DD-j 


13-24 

E12.5 

RX-j 


25-36 

E12.5 

BYl.l 


37-48 

E12.5 

BYi, 2 


49-60 

E12.5 

BY i 3 
BYi 


61-72 

E12.5 


Repeat data card III -8 for i » 1, 2, . HRLFR 


EXPLANATION 


Delta between grid marks on the i-th plot frame. 
Maximum X value on the i-th plot frame. 

Minimum Y value of the first grid of i-th plot frame. 
Minimum Y value of the second grid of i-th plot frame. 
Minimum Y value of the third grid of i-th plot frame. 
Minimum Y value of the fourth grid of i-th plot frame. 

Input BY-j 4 j for J=l, 2, ...» NGR-j where 1 represents 
the i-th plot frame. 



SECTION IV - CONTINUOUS SYSTEM ROOT ESTIMATES - OPTIONAL 


(Omit section IV if estimates used to compute the continuous system open loop zeros and poles and closed 
loop poles are not to be input). 


CARD 

COLUMNS 

FORMAT 

CONTENTS 

IV-1 

1-4 

A4 

REQEST 


21-24 

A4 

OPTINP 

IV-2 

1-5 

15 

NA 


Omit data 

card IV-3 

if NA=0 

IV-3 

1-12 

13-24 

2E12.5 

EA] 


25-36 

37-48 

2E12.5 

ea 2 


49-60 

61-72 

2E12.5 

ea 3 


EXPLANATION 

Input the control word ESTIMATES 
Estimates input option selected by user: 

RETAIN + Retain estimates from the previous case; 

omit data cards 2 and 3 of section IV. 
Dummy Routine. 

NEW + Input new set of estimates as required by 
data cards 2 and 3 of section IV. 

Number of eigenvalue estimates 
0<NA<75 


Real part then imaginary part of the first complex 
estimate. 

Real part then imaginary part of second complex 
estimate. 

Real part then imaginary part of first complex 
estimate. 


Repeat the format of data card IV-3 until NA complex estimates have been input. 

NOTE: Do not input both a complex number and its complex conjugate as 

estimates; only one need be input to the program in order to 
obtain the pair of roots. 
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SECTION V - CONTINUOUS SYSTEM MATRIX - REQUIRED 


CARD 

V-l 


NOTE 

Data 

V-2 


COLUMNS 

FORMAT 

CONTENTS 

1-4 

A4 

REQEST 

21-24 

A4 

OPTINP 


31 

A1 

PVAR 

41 

A1 

PNOM 


EXPLANATION 


Input the control word MATRIX 

Matrix input option selected by user: 

NOMINAL + Retain the nominal matrix defined in the 

previous case; omit data cards 2 thru 44 of 
section V. Dummy Routine. 

GENERAL -> Create the nominal matrix using the general 
matrix input format input data cards 2 and 
3 of section V; omit data cards 4 thru 44 
of section V. 

R AW v DATA -* Create the nominal matrix using raw vehicle 
data; omit data cards 2 and 3 of section V; 
input data cards 4 thru 44 of section V. 
Dummy Routine. 

Non-blank indicates parameter variations of either the 

general input format type or raw data type. 

Non-blank indicates not to execute the nominal case. 


It is invalid to input PVAR as blank and PNOM as non-blank. 


cards 2 and 3' of section V are only input if OPTINP - GENERAL 


1-2 

12 

Hi 

3-4 

12 

JJl 

5-6 

12 

KKi 

7-20 

E14.5 . 

VALi 

21-22 

12 

1 1 2 

23-24 

12 

JJ 2 

25-26 

12 

kk 2 

27-40 

E14.5 

val 2 

41-42 

12 

n 3 

43-44 

12 

JJ 3 

45-46 

47-60 

E?4.5 

kk 3 

val 3 


Row location of first matrix coefficient value. 

Column location of first matrix coefficient value. 
Power of S to which the first value is a coefficient. 
Value of first matrix coefficient. 

Same data as in columns 1-20 but for second 
coefficients. 


Same data as in columns 1-20 but for third 
coefficients . 



CARD 

COLUMNS 

FORMAT 

CONTENTS 

V-2 

61-62 

12 

1 1 4 


63-64 

12 

JJ 4 


65-66 

12 

kk 4 


67-80 

E14.5 

val 4 


EXPLANATION 

Same data as in columns 1-20 but for fourth 
coeffi cient. 


NOTES: At least one coefficient must be defined per data card using any of the allotted fi elds ; multiple 

definitions of a coefficient results in the last definition being used; all matrix coefficients 
are initialized to zero. 


Repeat data card V-2 until all matrix coefficients have been defined. 

V-3 1-80 20A4 CARD A completely blank data card indicates termination 

of the nominal matrix definition using general input 
format. 


Data cards V-4 thru V-44 are only input if OPTINP * RAWvDATA. Dummy Routine. 


r\> 
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SECTION VI - PARAMETER VARIATIONS - OPTIONAL INPUT 
(Omit section. VI if parameter PVAR - blank [card V-l]) 

Omit data cards VI-1 thru VI-2 if the characteristic matrix was generated by raw data vehicle parameter values. 

GENERAL MATRIX PARAMETER VARIATION 


. CARD 

COLUMNS 

FORMAT 

CONTENTS 

VI-1 

1-5 

15 

NV 

VI-2 

1-2 

12 

H 1 

JJ 

KK 


3-4 

12 


5-6 

12 1 
E14.5 


7-20 

VALi 


21-22 

12 

n 2 


23-24 

12 

JJo 


25-26 

' 12 

kk 2 

ro 

27-40 

E14.5 

VAL 2 

o 

41-42 

12 

n 3 


43-44 

12 

0J 3 


45-46 

12 

KKo 

val 3 


47-60 

E14.5 


61-62 

12 

II 4 


63-64 

12 

JJ 4 


65-66 

12 

kk 4 


67-80 

E14.5 

val 4 


Repeat data card VI-2 until all matrix coefficients 


EXPLANATION 

Number of matrix coefficients to be varied simultane- 
ously. 1 <NV<100 

Row location of first matrix coefficient being varied. 
Column location of first matrix coefficient being varied. 
Power of S first matrix coefficient being varied. 

Varied value of the matrix coefficient. 

Same data as in columns 1-20 but for second coefficient. 


Same data as in columns 1-20 but for third coefficient. 


Same data as in columns in 1-20 but for fourth coefficient. 


being varied simultaneously have been specified. 
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SECTION VII - KEYWORD INPUT - OPTIONAL INPUT 

Section VII is an optional input section which when input performs two functions: 

(1) Recovery point to which the program goes if an input 
or execution error occurs in a previous case. 

(2) Resets Nyquist data, root locus data, characteristic matrix 
data and user estimates to program initial conditions. 

If this section is not input, then all specifications input in the preceding data 
case remains intact for reference in the following data case. 


CARD COLUMNS FORMAT CONTENTS 


EXPLANATION 


VII-1 1-4 A4 


CARD 


The data word KEY punched in columns 1-4 causes 
the program to identify this card as an error 
recovery point and to return the program to 
initial conditions. 



3.0 


METHOD 


3.1 Control Systems 0 " 

* ■ 

A control system is an arrangement of physical components 
connected in such a manner as to command, di reel or regulate 
itself or another system. There are two general classifi- 
cations of control systems - open loop and closed loop. 

An open loop control system is one in which the control 
' action is independent of the output. A closed loop control 
| system is one in which the control action is dependent on 

! the output. System feedback is the property of closed loop 

control systems which enables the output to be compared 
‘ with the system input, so that .appropri ate control action 
can be initiated as some function of the input and output. 
It is customary to refer to a closed loop control system 
as a feedback control system. Figures 3-1 and 3-2 illustrate 
typical block diagrams of open loop control systems and 
feedback control systems, res pec t i vely . 



Figure 3-1 Open Loop Control System 



Figure 2 Feedback Control System 
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Represents t i on of Feedback Control Systems 

Conventional feedback * control ' systems are continuous data 
systems in which all loops of the control system receive 
a continuous signal as input. 

* ■ 

A linear feedback control system can be represented in 
several different ways: a system of differential equa- 

tions, Laplace transformation of the differential 
equations, characteristic matrix, or block diagram. As 
on example ,• cons idcr the following: 


system of differ- 
ential equations 
(zero initial 
conditions and 
no input signals) 



X 1 + - x 3 + x 4 = 0 
% 

d x 

-Xi + x 2 = 0 
dt 


x 2 “ x 3 = 0 

d t 


- J*4 - 2x 4 = 0 
d t 


LaPlace 

Trans forma t i on 




x 1 + X 3 + x 4 = 0 
- X 1 + sX 2 = 0 
X z - (s+1) X 3 = 0 
X' 2 - (s+2 ) X 4 = 0 
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Representation of Feedback Control Systems (Continued) 


X 0 1 

Character- -1 s 0 
istic 


Matrix 


0 1 ~(s*l) 0 


0 10 


-(s+2) 



Bloch Diagram 



All are equivalent definitions of the same linear 
feedback control system, 

A relationship fundamental to 'c'cmt-rol system 
analysi s exists b etv/ccn the characteristic matrix 
and the closed loop transfer function of a linear 
feedback control system. Assume the existence of 
a linear feedback control system as illustrated 
by figure 3-3. * * 



4 ll,J_2N 
. H 2D 


Figure 3-3 Linear Feedback Control System 









fteprcscntation of Feedback Control Systet.is (Continued) 

In reference to the bloc!; diagram* (> is tho forward 
transfer function and I!j and !(■> arc tho feedback 
transfer functions. The quantities (q; , Cp, ^10* 

\l2Ut and II 20 arc polynomials in the hap la ci an variable 

S. The closed loop transfer function, is defined 

as the ratio of the output signal to the input signal* 


The equations 




\ 



R-Xj-X^ 








H 


2N 


H 


2D 



C « X 

2 


of the block diagram can be used to derive the closed 
loop transfer function. 
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(R-X -X) 
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Representation of Feedback Control Systems (Continued) 


t c,) * Hjik + H ' y 

‘ r ip Sc 


I) . -IN . "2H ) c m U - 


£ « 7 , 

k • <; 


D h lH . H 2H 

V ^ >2D 


V 


G D H 1 !> h 2 i> * 1 2 D 


S U 1D U 2D 


G ;, ,n 1D H 20 


_ , . . . . , r - . . . ..■■■■ i jji 1 1 “ ■ 4 " 

VlB?2D’ (, K in iK K 20 + ,, 2S H XD ) 


Honcc t 


G N H 1D H 2D 


E " G D irl XD H 2D + G K ( ' H lN H 2D + H 2N H lD^ 


is tlie closed loop transfer function. Of particular 
importance in the study of absolute and relative 
stability of a closed loop control system is the 
location of the closed loop poles. The closed. loop 
poles aro the roots of the denominator polynomial 
of the closed loop transfer function and hence the 

roots of the equation : . 

• * • «* 

. . ^ * ■ 

C D H 1D H 2D +G N (H 1N II 2D +,, 2» 1, 1D , “ 0 
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3.2 


Representation of feedback Control Systems (Continued) 

In generating tho' system characteristic «*«■*'**. ft “ ■ 
signals external to the closed loop are ignored, 
closed loop system of equations is given oy. 


Xj « -Xj-X, 




G,, 

X ■» X i 
2 . G D 1 


X * ' n tn *' 


Y « '’ 2M X 

X Jj TJ— — A 2 

1 2D 


Rewriting tbc equations yields 


X, ♦ X 3 «• X M .« 0 


- g h X 1 + S x 2 “ 0 


« 1N X 2 ' H 1D X 3 * 0 


,l 2N X 2 " H 2 D X >i “ ° 


which can be expressed in matrix format# 
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Representation of feedback Control Systems (Continued) 


— • - 


— " 


*7 * ** 

X 0 1 ’ 1 


X 

1 

- 

0 

- G (l " C D 0 0 


x 2 

» 

0 

0 • “ill " n iD 0 


- X 3 


0 

0 ,l 2H 0 _I1 2D 


X, 


0 

- • ' r 


- 


- 


* A ( s ) X « 0 


The matrix polynomial A(s) is the characteristic 
matrix corresponding- to the block diagram illustrated 
in figure 1. The characteristic roots of A(s) arc 
the values o£ s which cause the determinant or A(s) 
to vanish. 


|A(s)i 





l 

0 

1 

1 






C D 

0 

0 




» 

0 


~”lD 

0 

* 




i 

\j 

**2N 

o 

~"2D 

t 

1 


- 



g d 

0 

0 


0 

1 

1 

« l 

h in 

" h id 

0 

- + g h 

“in- 

h id 

0 

* 

ll 2N 

0 . 

- H 2D 


ll 2M 

0 

- U 2D 


G D H XD !I 2D * G N (I, 1N I1 2D +1I 2N H 1D^ 


Note that tho characteristic roots are tho closod 
loop poles, in general it can be statods 

The poles of the closed loop transfer 
function are the roots of tho system 
characteristic matrix. 
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Sampled Data Control Systems 

Conventional feedback control systems are continuous 
data systems in -which all loops of the control system 
receive o continuous signal as input. Another class- 
ification of feedback control systems is the sampled 
data control system, in which one or more loops of the 
system receive pulsed data as the input signal. Sampled 
data systems originate primarily due to inherent sampling 
in the system or when desired system results cun be 
obtained with intentional sampling. Radar tracking 
systems and time sharing systems are examples of sampled 
data systems with inherent 'sampling. Improved sensi- 
tivity and behavior and .the ability, to save and retransmit 
digitally coded signals are often the reasons for convert- 
ing a previously continuous system to a sampled data 
System. 

In sampled data systems, a continuous -signal is sampled by 
a sampling device which outputs a sequence of pulses. 



The continuous signal e(t) is sampled by the sampling 
device, and the sampled signal e*(t) is output as a 
sequence of pulses (refer to Figure 3-4). In practice, the 
sampling device closes for a very short interval at 
periodic instants (t = o, T, 2T, 3T, ...) in order to 
sample the continuous signal. The time between two 
consecutive pulses is defined as the sampling period, 

denoted by I. . . 

* • H 

Many sampled data control systems incorporate a zero 
order hold circuit after the sampling device. This cir- 
cuit serves to generate a step function from the pulses 
In which each step is of width T (see Figure 3-5). 
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3.3 


Sampled Data Control Systems (Continued) 



Figure 3-5 Sampled data signal h(t) with 
zero order hold circuit 


In practice the actual waveform of the zero order hold 
circuit output is a series of exponential decays v/ith 
large time constants. A typical block diagram of a 
sampled data system with a zero order hold circuit is 
illustrated by Figure 3-6. 



Figure 3-6 Sampled data feedback control system 
v/ith zero order hold 


The Laplace transformation of a z^ro order hold circuit is 
1-e" ST . .. . ' . 

~s . • 
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Sampled Data Control Systems (Continued) 

Stability and design analysis of continuous system 
feedback control systems is performed in .the Laplacian 
variable S domain. Analysis of sampled data feedback 
control systems v/ould be expected to be performed in 
the Laplacian variable S domain also. However, the pre- 
sence of the pulsed sampled signal e*(t) makes the S 
domain analysis impractical.-- The Laplace t ran s f o rma t i on 
of the sampled data time function e*(t) is of the form 


L [e* ( t ) ] = E*(s) =. E e(nt)e-» Ts 

, n=o 

% 

where e(rit) denotes the continuous function e(t) at the 
sampling instants. Unfortunately , the factor e _n ^ makes 
E * ( s ) a non algebraic equation to which the inverse Laplace 
transformation and partial fraction expansion techniques 
are difficult to apply. The change of variable which 
eliminates these problems is the 1 transformation: 



S =1 In Z 
T 


Substituting into the expression E*(S) yields 


• . ' cd 

E*(S=lln Z) = E ( Z } = T. e(nT) Z* n . 

1 n=o 

which transforms the sampled time function e*(t) into a 
function of Z.E(Z) is referred to as the Z- tra ns forma t i on 
of the general time function e(t): 


E(Z) = Z- trans forma ti on of e(t) 



The 2 transformation has the limitation that the inverse 
Z trans f orma tion only yields correct information at the 
sampling instants. For this reason the Z* transforma tion 
can not accurately be applied to sampled data control 
systems which contain a transport lag (time delay). The 
Saturn V flight control system has a transport lag due 
to computation time and analog-digital conversion time 
.requi rements within the system. This type of system can, 
however, be solved by a modified 1 transform method. The 
Laplace transformation of a transport lag is 

e* T 0 s • ■ 


3-10 



3.3 


Sampled Data Control Systems (Continued) 

where T D is the transport lag expressed in seconds, 
consider the sampled data control system with transport 
lag illustrated in Figure 3-7 . 



' Figure 3-7 Sampled data control system with 
a transport lag. 


The open loop transfer function of the continuous part 

of the illustrated control system including the transport 

lag is: 

GH($) = gh(S) e ' T D S 
Defining the parameter M by / 

M - 1 - T D 

? r- . ’ • • 

and substituting into GH(S) yields a new expression of 
the continuous system open loop transfer function: 

- * 

% 

GH(S) = gh(S) e.( M - D TS 

The modified Z transformation of GH(S) denoted by GH(Z.M), 
is defined by: 

•GH(Z,M) = l M [G!i(S)] = Z-* 1 E gh ( kT+MT ) Z“ k 

« fm- t d 

IT 
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3.3 Sampled Dei to Control Systems (Continued) 

Using the modified 2 transformation, design one! stability 
analysis of sampled data control systems v/ith transport 
lag can be accurately performed. To avoid confusion, the 
terms 'basic Z transformation' and 'modified 1 transfor- 
mation’ will be used to distinguish between the Z 
transformations of sampled data control systems without 
transport lag and those wi th* transport lag. 
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3.4 


Basic and Modified 2 Transformations 


To further illustrate the basic Z transformation and 
the modified 1 transformation, consider o feedback con- 
trol system which has incorporated a sampling device 
into one of its loops. The L transformation method 
requires that the system be opened at the location of 
the sampling device, and the 1 trans forma t i on be 
applied to the resultant continuous system open loop 
transfer • f line ti on . ’ Define the following noinenc 1 a ture 
list: 


«.(s) 

-(a j+b.i ) 
(Cj+dji) 

K 


Sampling period 
Transport lag 

Continuous part of the open loop 
transfer function 
Poles of GH(S) 

Residues of G H ( S ) 

Leading coefficient of GH(S) 


and let the continuous system open loop transfer 
function GH(S) be expressed by:- 


GH( S ) = k 



C 2 * C 3 + C t, + d 4 i 
S 2 S+a 3 S+{a 4 +b 4 i) 


+ 


C„-d„i ~] 

S+(a 4 - b 4 i ) 


NOTE: Due ;to the limitations Imposed by the program 

(Section 1.3) and the restriction to matrix 
polynomials with real coefficients, all continuous 
system open loop transfer functions generated by 
the program will have terms in the partial fraction 
- expansion only of the types expressed above. 


Application of the theorem 

j [af (S)+bg(S) ] = a j [f (S)] + b J Eg(S}] 

* ' . • 

where a, b are constants and f(S), g(S). are 

functions in the Laplacian variable S . ■ 

to GH(S) enables the Z transformation of GH($) to be 
expressed as the summation of the Z transformation of the 
individual terms of the partial fraction expansion of 
GH( S ) . 
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For systems which do not contain a transport- lag, the basic Z transformation can be 
applied: ■> 
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» (2kc)Z 2 * (2k ( d sih(bT) - c cos(bT) ) e~ aT ) Z 

Z 2 -(2 e* aT cos(bT) j Z + e' 2aT 
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For systems which Include a transport 



lag, ;ie modified Z transformation is applied: 




zi-e 




2 ke- aMT .e~ aT (c cos((l-H) b T) + d sin(Cl-K b T) 
Z 2 -(2e-aT cos (b T)) Z + 
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Assume a zero order hold device has been ih:orporated into^the system at the point of 
the open loop specification. The open loop transfer function of the continuous system 
with zero order hold is denoted by G h G H ( S ) . 


G h0 GH(S) 


) 


. « 


1-e~ TS GH(S) 
S 


i 


v 


f(l-s- TS )Tk 


L- 


f) 


C 1 + C 2 + . C 3 + C 4 


3 2 


S+a 



Cl + . C 2 +. C 3 + C 4 


1 

S3 


+ . C 5 +( *5^ 


S+(a 5 +b 5 i ) 


S3 


+ 


+ c s -d s i 


-l) 


S+(a 5 -b 5 1 ) j( 

I 

J 


+ V *' 1 


*l'l 


S S+a 4 S+ ( a 5 +b 5 1-) ' Sf ( a s - b s 1 ) J ^ 


O-z- 1 ) 


kc L + kc 


S 3 


S- 


2 + kc 3 + kc 4 + >/c s +d s i 

k 


S + a 


S+(A 5 +b 5 i> 


+ c ^ -d s i 
k * 5 


1 


S+Us-bsOj 
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For systems which do not contain a-- transport Tag, the basic Z transformation is applied: 



= kc T 2 (Z+l ) 

~T~ WT)* ' 

• kc T 2 (Z+l) 

2 Z 2 -2Z+) ' 
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p : f * ' — ■ f , ... ... s < pi ,,, ( ■; 

(Z-l ) 'I k( c+di ) + k(c-di ) ® (Z-l ) (2~. kc” 

Z "JL S+(a+b1 ) S+(a-bi)_ Z ' Z 2 - 


Z 2 *[2 k 1 (<T sin (bT) *c ;i c: 6 s (bt)) " e 1 
(2 e" a ^cos(b T) )Z 


( 2kc ) Z 2 +[2 k (d sin(bT)-c cos(bT)) e" aT -2 kc]Z 
Z 2 -(2 e“ aT cos (bT))Z -re~2aT 
* % * 

-2 k (d sin(bT)-c cos(bT)) c~ a T 
Z 2 -(2 e -a 1 cos (bT) )~Z Te 7 ^. I 


i • 

For^ systems which Include a transport lac, the modified ! transformation is applied: 
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e 



Z 2 -e* aT Z 



k. (c+di) + k (c-di ) 

- (z-U 

*-* 

2 

S+(a+bi ) S+(a-bi)_ 

z 

p 


2 k e‘ aMT (c c o s ( H b T))Z + 
Z 2 -2e" aT cos(bT) Z + e’^aT 


2 k e" a ^^ e~ g T (-c cos((1-M) b T)+d sin((1-M) b T)) 
Z 2 -2e- aT cos(bT) Z +^e** 2a T 


8,2k e~ a ^(c cos(M b T)+d sin(M b T)) Z 2 

+ 2 k e“ a ^" I *[e” aT (-c cos(l-M) b T)+d sin^(l-M}b T)]Z 

-2k e“ a ^[(c cos(M b T)+d sin(M b T))] Z 
- 2 k e“ aMT e*" aT ( -c cos(O-X) b T)+d sin((l-M) b T) ) 

Z 3 -(2 e" a *^ cos(b T))Z 2 + e r2a "^ Z 



3.5 Root Locus 

Design and stability analysis of continuous data 
control systems is based, on the pole-zero configuration 
of the system transfer function in the S plane. For. 
a stable system, all the closed loop poles mus t lie in 
the left-half S plane. An analogous situation arises 
for sampled data control systems. The 1 transformation 
maps all points in the left-hand 5 plane into the 
interior of the unit circle in the Z plane and all the 
points in the right-hand S plane into the exterior of 
the unit circle in the Z plane. As a consequence, 
design and stability analysis of sampled data systems 
is based on the pole-zero configuration of the system 
transfer function with respect to the unit circle. 

For a stable system all closed loop poles must be 
within the unit circle. 

Sampled data .root locus in BMA0369 is restricted in 
application to only those sample data systems which 
incorporate a zero order hold circuit. Gain root 
locus is based upon the introduction of a gain factor 
K at the sampling device location in the closed loop 
block diagram. The locus of'the closed loop poles are 
plotted as a function of the gain factor as*K varies 
from zero to infinity; the resultant plot being the gain 
root locus plot. By replacing the gain factor K by 
e^ 0 and varying 0 from 0 to" 360 degrees , phase root locus 
plots can h* generated. A special root locus called 
sample period root locus can also be obtained. For 
each sample period specified; the program computes the 
sampled, data system nominal closed loop poles. The 
locus of these poles plotted as a function of the 
sample period constitute the sample period root locus. 

Computational techniques used in obtaining sampled data 
root locus requires the analysis be performed on a 
modified system. Isolated and extremely stable roots 
appear as roots at the origin in the Z plane. Such 
roots show little movement and affect insignificantly 
the movement of other system roots. Because of the 
computational difficulties involved in obtaining 
multiple roots which frequently occur at the origin in 
sampled data root locus, the BHAG369 program removes 
from the system all the roots at the origin. Vlorking 
with the partial fraction expansion of the- system, 
transfer function, the sampled data closed loop poles 
are inspected and those which have a magnitude less 
than .0001 are removed from the system. More specifically, 
the program deletes the term associated with the 
indicated pole from the system Z domain partial fraction 
expansion. In addition, rather than obtaining root 
locus results from the open loop sampled data transfer 
function 
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3,5 Root Locus (Continued) 

. i.e. , 

Gll(Z) = Aj (2) + A 2 (Z) *■ ... + A n (Z) * P(Z) 

MIT B 2 ( z ) # B n (Z) Q(z) 

the program uses the companion matrix . 


i . e . 



The characteristic polynomial of the companion matrix 
yields the expression necessary for root locus analysis. 


D eT (C) = B, (Z)B 2 (Z)...B n (Z) _ ' . 

•' + K[Ai (Z)B 2 (Z) . . .B n (Z) +...+ Bj ( Z ) B |J _ 1 (Z ) A a (Z ) ] 

. * ■ ; • 4 ' 

. = q C z 5 + k pCz) _ 

For systems which have a transport lag, a slight 
modification must be made to the companion matrix. 
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3.5 


Root Locus (Continued) 


o 

o 






0 1 


Referring to the modified Z -trans forma ti on of sampled 
data systems with □ zero order hold circuit (section 
2.2.4), it can be seen that B^(Z), B 2 (Z ( Z ) would 

each have a root at the origin thereby generating n open 
loop poles at the origin. As discussed previously in 
this section, such roots are removed from the system in 
root iccus computations. Modification of the (1,1) 
element in the companion effectively factors out the 
undesiredroots at the origin. ' 
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3.6 


Nyquist Frequency Response 

Another analysis tool of the program is open loop 
frequency response employing the Nyquist criteria. 

* 

Nyquist analysis is a graphical procedure for 
determining absolute and rc.lative stability of a 
-closed loop control system in terms of frequency 
response, of open loop transfer functions. In the 
B.IIA0369 program, the system is opened at the sampling 
devicelocation. 

In order to apply conventional nyquist techniques to 
sampled data control systems, another change of variable 
is required. The bi-1 inear trans f orma t i on to the R 
domain 

1 * R+l 

R-T . 

is the desired trans f orma t i on . The R transformation maps 
the interior of the Z-plane unit circle into the left 
half R -plane and the exterior of the Z -plane unit circle 
into the right half R-plane, thus enabl i ng .convent i ona 1 
Nyquist techniques . to be applied. As an example of the 
transformation, consider the open loop transfer function 


GH(Z) = AZ + b \ 

•. CZ 2 +dZ+e 

v/here a, b, c, d, and e are constants. 

- nil R+l 

GH(Z = j£|) = a (fTT) + b 

' C(§±1) 2 + d(§i1) + e 

. a (R-tl ) (R-1 ) + b ( R- 1 ) 2 

. ' . c ( R+l ) 2 + d ( R+l ) (*R - 1 ) + e (R-1) 2 


a (R 2 -1 ) + b (R 2 -2R+1 ) • 

c(r2 + 2R+1) + d ( R 2 - ■) ) + e (R 2 -2R+1 ) 


*= _(a+b ) .R 2 + (-2b) R V (b-a) 

(c+d+e ) r 2+ (2c-2e) R + (c-d-e) 

Conventional Nyquist techniques can now be applied to the 
sampled data open loop transfer function. 
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3.6 Nyquir.t frequency Response (Continued) 

A few definitions ore prerequisite to a. discussion of the 
Nyquist computations. As it - is a function of a complex 
•variable, a transfer f unc ti on . Gil ( R ) is a complex number 
and may be represented in polar form Gll(R) “ re 10 . The 
number r is referred to as the amplitude of the function; 
the number 0 is the phase angle or phase; the combination 
re 1 0 is the gain. There is an associated decibel value; 
it is 20 times the common (base 10) logarithm of the 
amplitude. 

.The essential computation involved is the evaluation of 
the function GH(R) over an interval of values of the 
independent variable. An obvious procedure is to 
calculate R-j = i w-j , GH] = GH(R.-j), then using some 
frequency increment obtain ^2 = w-j + <$<j, R 2 = iwg. 

GH^ = GHCR^Ji.and so on. The cons ta nt- i ncrement is 

objectionable for two reasons; A proper choice 
presupposes some knowledge of the behavior of GH{R); 
and no single increment will generally suffice over 
the desired range, a large value possibly causing 
regions of sudden variation to be bypassed, a small 
value necessitating excessive computer processing. Both 
accuracy and speed are achieved by enabling the program 
to as sion the frequency increment; initially it is set 
to a certain (input) percentage of the first frequency. 

When GH(R) is changing rapidly, a small increment is 
used; when GH(R) is varying slowly, a large increment 
is used. The increment is decreased by halving its. 
value until it becomes less than a certain constant 
(.0002 or .00002) times the current value of the 
frequency. The increment is increased by doubling its 
value until it becomes greater than the abovemen ti oned 
percentage of the current frequency. These limits set 
on the minimum and maximum increments ensure that the 
calculations will neither Te.quire excessive computer 
time. nor omit points of interest. A measure of the 
variation of GH(R) is available in the variation of its 
phase angle. The phase shift of a function is the 
difference between two phase angles corres pond i ng to two 
successive values of the frequency; the results of 
certain phase shift tests determine how the frequency 
increment is modified. Two input quantities, a minimum 
and maximum phase shift, define acceptable variations. 
When. the phase shift tested is less than the maximum and 
greater than the minimum, the computation continues with 
the current value of the frequency increment. If the 
phase shift is greater tnan the maximum, the increment 
is decreased when possible (that is, when it is greater 
than .0002 or .00002 of the current frequency value). 

If the phase shift is less than the minimum, the ' i ncrement 
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Nyqulst Frequency Response (Continued) 

Is increased when possible (that is, when it is less 
than the certain percentage of the current frequency 
value). In such a manner, computation proceeds until 
a frequency is processed which is equal to or greater 
than some terminal value. 

The term frequency interval or interval is used to 
represent the range of values v/hich can be assumed by 
the variable oi. Such an interval is defined by 
specifying its end points, some starting and stopping 
frequencies. The program can process more than one 
interval. The intervals are completely i ndependen t *, 
the stopping frequency of a particular one is not 
required to be less than the starting frequency of the 
next. The quantities used i n. de termi ni ng the increment, 
the maximum percentage and the allowable phase shifts, 
are unique for each interval and may be varied by 
specifying more than one interval. 



3.7 


Program Computation Stops 

The fallowing is the step-by-stop analysis procedure 

employed in the Sampled Data Analysis Program. 

1. Input to the computer the' S-plane system character 
is tic equations. 

2. The S-plane matrix is opened for example in the AO 
channel* (OP-AO), and S-plane roots (numerator and 
denominator of (OP-AO) are found. 


. i.e,, OP-AO {S ) - K(S+N*| ) (S+N 2 ) * • • 

; • "Ts+dT") ( s+bg > 

3. The S-plane roots of OP-AO are expanded by series 
expansion. p 

,A_ B S +C + ... 

i.e., OP-AO - KjS + D ] + s^D 2 S + D 3 


4. From the series expansion the Z-transform is taken 
• of each term. 

'I 

'i.e. , OP-AO (Z ) » K ] 

57 " 

5. The zero-ordcr-hold transfer function is 1-o-ST . 
Thus, OP-AO(S) with zero-order-hold becomes: 




BS + C 

S + D -j 

+ 

s 2 +o 2 s+d 3 


OP-AO (S ) 


= 1-e-ST 


OP-AO ( S ) . 


6. Taking the modified or basic 1 transformation 
depending on the transport lag option; 


OP-AOU7 


(i-z-i ) 1 


s 


r+1 


7. Next, the bilinear transformation of z = r - 1 is 

substituted for z in 

OP-AOTT7 


i.e.. 


OP-AO (Z ) 


Z = r±I * OP-AO ( r ) 

r-1 


8. For freq . response , 

i.e., 

- OP-AO CrJ 


r is set equal to ju> r 
• , * 

bpT7lo(j.c„ ) 

r = ju r 
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Program Computation Steps (Continued) 

9. Gain and phase are plotted for values of w r . 

10. w r is related to (S-plane freq.) by 

- -cot ° W T 

r (2 ) 

11. 1 + KQP-A0 ( Z J is put into matrix form and rooted to 
giv.e a root locus as a'* function of system gain K. 
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3.8 


Continuous System Open Loop Transfer Function 

An intermediate step in the UIIA0369 program requires 
the computation of the continuous system open loop 
transfer function. Given the continuous system 
characteristic nlatrix polynomial and the matrix 
location at which to open the loop, the program must 
compute the open loop zeros, open loop poles, and 
associated leading coefficients. 


S (S- ai ) 
= K i = l 


7i (S-bj) 

j = l J 


K q j = l 


Associated with each computation is a specific 
matp x polynomi al . 

Consider the open loop transfer f unc t i on i 1 1 us tra ted 
by figure 3-8. 



Figure 3-8 Open Loop Transfer Function 
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3.8 


Continuous System Open Loop Transfer Function (Continued) 

The open loop transfer function corresponding to the 

y 

block diagram is "2 . * 

V :* * 


The following system equations can be derived for 
the open loop transfer function illustrated in 
Fi gure 3 - 8 . f • 


X] * - X 3 “ X 4 


H 


X 3 - _]_N X 2 


ID 


X. = IN 

g d 


h 2N 

h 2D 


which can be rewritten: 
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3.8 


Continuous System Open Loop Transfer Function (Continued) 

* X ♦ - 0 


y * G X « 0 
B ¥l D 2 


«1H X * " H 1D X 3 “ 0 


»2D X U 


H X * 
n 2N 2 


Tho 


corresponding matrix representation is 

i- ' 



X 


which can be rewritten: 


■* X 

0 

1 

X ~ 

l 

* 

v x ; 

* 

— 0 — 

*g n 

g d 

0 

0 


V X 2 

t 

*• 

0 

0 

h in 

- H 1D 

0 


X 3 /XJ 


0 

0 

0 

0 

• H 2D 


x„/x$ 

• 

H 2H 

- 





— 

: 

■ — • 


Applying Cramer's rule and solving for tho open loop 

X 2 

transfer function jr l 
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3.8 


Continuous System Open Loop Transfer Function (Continued) 


*T 



1 

o 

l ** 

•# 

1 


" g h 

0 

0 

0 


0 

° l’"lD 

0 


0 

11 2N 

0 

1! 2D__ 


1 

0 

f 

1 

1 


“ g n 

g d 

0 ‘ 

0 


.0 

*' IN 

•"id 

* 0 


0 

0 

0 

lI 2D 

•r* 


* 




G N H 2n! 1 

ID 


*• G 

ii ti 

D ID 2D 

- s 

H 1N H 2I 

• 

- 

G N !1 2N H 

ID 

*' * 


G D II 1D II 2D +G N II 1N ,1 2D 


Because the transfer function illustrated in 
Figure3-8 employs negative feedback, then by 
convention, the transfer function dcsirod is tho 
negative of the above* llenco, 


■ G H ,, 2N H 1D 




G D 1I 1D I, 2D + G n”iN H 2D 


(Equation 1) 


.For the computa ti on. ’of ^ as-shown by figure 3-8, -a gain 

factor K is incorporated Tn the -location at which the 
system is opened. 
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3.8 ..Continuous System Open Loop Transfer function (Continued) 



Figure 3-9 Closed Loop System 


For the closed loop system illustrated in Figure 3 9, 
the .closed loop transfer function is 


r ' 1 

If-. G 1 2 D G K ^ 1 ^ ^ 271^*10: ■ ‘ - 


whore the closed loop poles , are the . roots;’ of the 

m r * ♦ 

expression: . * . • 


•; G D H lD ,, 2D +G ; J ' (ll lN ,1 2Di KH 2« ,, lD ) “ 


The system characteristic matrix can.bc formed 
from the following equations: 

. • - - "V h in y 

x. ■ -X, - X. -Xj-- X 2 

. . — n lD 


*2 - -SC x l 


. x 4 * K jj— X 

n 2D 
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3*8 Continuous System Open Loop Transfer function (Continued) 

Uov/ri ting tho equations yields __ 


X * X ♦ X - o 
l. 3 *» 


. n x + g x « o 

1 U D ?- 


, 1 1 N X 2 " "id X 3 " 0 


K »2N X 2 " 1, 2D X 3 3 ° 

VT 


which gives the characteristic matrix: 

n o 

* * 

«* G . . G 


N 


H 1M 

KH 


2H 


.. — 


1 


— 

1 1 


x. 


0 

0 o 


X 2 

- 

0 




aa 


H 0 

a lD 


X 3. 

• 

o’ 

® ”^2D 


V 


0 





— — 


Tho characteristic polynomial is 

X 0 x l 


-G 


N 


0 

0 


g d 0 

h in -«id 
kh 2H 0 


0 

0 

-H 


2D 


* G D H 1 D 1 I 2 D + G N^ I 1K H 2D >K11 2H H 1D ) 
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3.8 


Continuous Sys tern. Open . Loop Transfer Function (Continued) 
making tho characteristic equation 

C 0 , . , 1D ,, 2D*V , XH ,, 2D* H, 2M ,, i‘dJ “ ° 


which yields the closed loop poles as its roots# 
Tho characteristic equation can be rev/ritton as 
follows: 


.( G D H lD H 2D + G K H lN n 2D )+K S H 2N H 


ID 


Koto that when K » 0 the characteristic equation 
becomes * 


G D n iD H 2D* G K H lH n 2U 


which is the equation of the open loop poles# 
The corresponding matrix polynomial is 









which has tho characteristic polynomial 


Q(S) 




0 

0 


0 

G, 


1 - 
0 


h in “ it id 0 


-K 


2D 
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3.8 


Continuous System Open Loop Transfer Function (Continued) 
** G U t, l 0 ,, 2D +G N ,I 1 

q , V "V ♦' 

= Kn IT ( S-b, ) 

J«1 u 

which is the polynomial of the open loop poles. 

Manipulating the charac tori s ti c polynomial, the 
following relationship is found, 

7 (eD«lD H 2D +G M H iw H 2D +KG H H 2« H 10> “ 

= lim L(G D H- 1 D ll 2 o + G N H 1 N » 20 )+Gf 1 H 2 N H 1 p] 

= 0 + G h H 2 jjH 10 
= G N H, N H in 

which is the polynomial of the open loop zeros. 

The above expression is equal to the limit as K 
approaches infinity of ^ times the characteristic 
polynomial. Working with the characteristic matrix, 
this is equivalent to 

1 _ 0 ~ 1 1 

-g n G d 0 0 

.0 . h 1n -h 10 0 

0. ® "^20 


P(S) = Tim ^ 
K->« 
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3.8 


Continuous System Open Loop Transfer 

Function 


♦ 

1 

•0 

1 

1 

i * . 

- g n 

* * 

K g D 

0 

0 

= lim 




A 

K 1 

' ° 

R' h in 

“ H 1D 

0 

. 

• 0 

H 2N 

w 

0 

- “ H 2D 


■t 

1 

0 - 

1 

1 


*. -g n 

0 

0 

0 


r ! o 

t 

0 

~ H 1D 

0 


o 

H 2N 

0 

“ h 2D 


G H H 2N H 1D 


- 


e ■ 

K n 5 (S- 
"i = l 

a i> 

* 4 


which is the 

polynomi al 

of the 

open 

loop zer< 


Hence * 


P. 

Q 


(S) = K n ? • ( S - a i ) _ G N H 2N H 1D » 

\ ^ / . . ■ 7 u u _ x rT. . \ 


0 * (S ' b i } 
D 1=1 


6 D h 1D !1 2D +g N h ]H H 2 


- *2 
Xo 


Is the desired open loop transfer function. 


3-39 



3.8 j Continuous System Open Loop Transfer /unction (Continued) 

i 

Thus, the matrices in question are the following: 


Computa t i on M atrix Polynomial 

Open loop'poles System characteristic matrix 

but with the element at which 
the system is opened being 
zeroed . 

r 

Open loop zeros System characteristic matrix 

but with every clement in the 
column at which the system is 
opened being zeroed except for 
the element at which the system 
is opened . 


The computation in each case reduces to finding the 
characteristic roots and the leading coefficients of 
the associated matrix polynomials. 
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3.9 


Computation of Characteristic Roo ts 

As indicated in sections 2 . . 2 . 5 and 2 . 2 . . 1 > the program 
must compute the continuous system open loop zeros and 
open loop poles and the sampled data system characteristic 
roots. The computational stops involved in these calcu- 
lations arc described as follows. 

Let A (a ) be a complex square matrix polynomial of degree 
n whose characteristic roots arc to be computed. A(x ) , 
a matrix whose elements are polynomials with complex 
coefficients in A, is represented mathematically by 

A (X ) * AqA n + A 1 X n ” 1 + ... + A n _-j* + A n 

where the A; are constant complex matrices and Aq is 
not the zero matrix. The characteristic polynomial of 
A (a ) is the determinant of A (a), denoted |A(x)|. The 
characteristic roots (eigenvalues) of A (a) arc defined 
as the complex values of A for which the characteristic 
polynomial vanishes. 

The method used by the program to compute the- character- 
istic roots is a modification of an iterative technique 
originally employed for polynomials not having matrices 
as coefficients. Based on an estimate of a characteris- 
tic root, three starting iteran£s are formulated. The 
corresponding functional value for each iterant is 
computed where a functional value is defined as the 
evaluation of the characteristic polynomial at the 
specified iterant value. A quadratic fit by Lagrange's 
method is made'of the three iterants and functional 
values. The root of the quadratic equation closest in; 
modulus to the last iterant is selected as the next 
iterant. If the iterants have converged, it is hypo- 
thesized that they have converged to a charac teri s ti c 
root which is saved by the program. The rooting routine 
restarts with a new estimate. Otherwise the functional 
value for the new iterant is evaluated and the rooting 
procedure repeats the previous step with the last three 
iterant and functional values. Theoretically, the 
iterants generated' by the above procedure will eventually 
converge to a characteristic root. Roots are factored 
from the characteristic polynomial, to avoid repeated 
convergence ..to the previously found roots. 

3.9.1 Scaling 

Certain arithmetic operations involving functional 
values are subject to exponent overflow and require 
special data representation, h'ach functional value 
has a base value, b, and a scale factor, s, which are 
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3.9.1 


Scaling (Continued) 

usod to construct tho true value. 


‘io. (b , s) whero x«b ft 10 


84 


As an example, considor the value xnh2 4 10 
v/hich is too largo for usual data representation* 

* \ 

xh ( b , s ) = ( 4 . 2 * 1 0 *30)- 


where ca %o 84 

■ xn(4.2M0 54 )U0' 5U «4.2n0° 


The rules for scaling a functional value are 
that the base value cannot exceed 10° and tho 
scale factor is a multiple of 15, When the baso 
value exceeds 10 60 it is divided by 10 and 15 
is r.d ded to the scalo factor s • 

A 

3 . 9.2 Tn^Hnl ThrrtR T t f* r ftnts * 

The iterative technique used to compute tho 
characteristic roots of a matrix polynomial . 
requires the formation of three initial itcrants. 
b a r * c d on an estimate. Let \i represent the 
estimate and 8 the constant 0,1 (special cases 
require that 8 be scaled down in multiples of 
100) . The first three itcrants arc formed as 
follows: . " . 

If Jy|<l.G*10" 6 then A o <*-3(l + 0) 


If 1 p I 1 * 0 ^ 10“ 6 then A o «y(l+0) 


A q , A , and A 2 represent the first three itorants, 
respectively* 
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3.9.3 


Functional Values 


3.9.4 


Tho functional value, F (A) , corresponding to tho 

itorant, A, is tie fined as the evaluation at tho 
iterant of the characteristic polynomial after 
previously found roots have been factored out* # 

V 0 (X) •• |A(X)| 


P « 1 , 2 , . . ♦ , n whevo n 
is the number of characteristic 
roots and the A^ arc tho roots 
found by the program* 

Because the characteristic polynomial can not be 
constructed directly from the matrix polynomial, 
an actual factoring out of previously found roots 
can not be done, An artificial technique of evaluat- 
ing the numerator and denominator separately and then 
dividing is used by* the program. This method works 
well for simple roots '(non- re pc a ted roots) but fails 
when converging to the mult ip Id roots. To resolve 
this situation , iterant s "converging to . previous ly 
found roots are modified in such a. way as to cause 
mu Itiplc roots to appear as* clustered roots, ( Re i e r 
to section 2,2, 1,5 for further discussion on multiple 
roots) 

Calculate New Iterant* 

Mathematically, the program obtains a quadratic fit 
of the last three itcrants ( A i , A ^ + ^ , *i*2^ an< * 

functional values (f^CA^O, f p^ X i + l^» f p^i + 2^* 

roots the quadratic, and accepts as the next iterant 
the root closest to The mathematics 

have been reduced to the following computations* 

♦ 

°2 ° ( X i,2“ X l*P^ X i*l" X il 

9 

b 2 - °2 2 * y x i>- (i+D 2> ? *y x i*i ) 

♦Cl + 2«D 2 )»f p (X. +2 ) - 


F CX) - lACiiL 

P(X-i,) 

7f X i' 
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3.9.4 


Calculate Mew Iterant (Cont.lnuod) 


3.9.5 


IS3 » n 2 *f > (x 1 )-(i*i) 2 )*f (» i+l ) + fp( x i*2 ) 


DI3N0M l'- 2 ± ^:,) 2 ;•.( 1 ♦ U 2 ) K f p ( X i + 2 ) * 0 3 


In the ahov 0 expression * or ~ is selected accoiding 
to which sign yields the largest modulus of parameter 

PHNOM 

4 

* 

D 4 - -2«-(l + D 2 )«f p (X^p . ■ ' 

DHNOM 

If DHNOM » 0 . 0 then D 3 « 1.0 (only imposed to 
avoid division by zero). 


X. - 
i<-3 


X i + 2 * ° 3 "* fX i + 2 "- X i>l ) ' 


M u 1 1 i p 1 0 U o o t s 

Multiple roots can not be calculated exactly because 
of a breakdown in the method of determining functional 
values (section 2 . 2 . 9, 3). If an iterant is permitted 
to be equal to a previously found root, then the 
functional value evaluation would involve division 
by zero, thereby, causing unpredictable results. ^ 
Corrective measures by tTie program include recognition 
of troublesome itc rants and their modification. 

if |X| < 1.0*10 “ 6 and |X-X^J < 1.0*10 

* where X^ is a previously found root, 

then subtract 0,01 from the real part of X.. 
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3.9.5 


3.9.6 


Multiple Root; 

if I X 1 a 

where X 
subtract 


(Continued) 

l.Oiio" 6 ana li'ii. ! < l.oao' 6 

X 

in a previously found root* then 
0*01 from the real part of X* 


The modified value of X in similarly checked 
against the previously found roots* Since the 
rooting technique do pen dr. on the convergence of 
iterant s and the iterants arc modified if they 
too closely approach a previously found root, 
then nul t ip lc* roots must necessarily appear as 
clustered roots* 


Convergence Tests 

f 

Three independent tests are performed to check 
for convergence of the iter ants to a characteristic 
root. The passing of one test is sufficient for 
acceptance of the last iterant as a root. Suppose 
) is the last iterant and f ft CXj) is the corrcspond- 

\ w a funri'i ona 1 vn.nifl. 


Resultant Convergence 
Code in Printout 



Convergence 
Test passed 


IfpOpI - o.o 
Uiks l.oxio- 4 


3 


4 


1 1-1 


< 1 . 0*10 


-4 


Complex conjugate of a 
previously calculated root 


In reference to convergence code four, a program 
option exists which instructs the program to 
automatically accept the conjugate of a strictly 
’complox root as a characteristic root. Assume 
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3.9.6 Convergence Tests (Continued) 

thr.t A » x+iy has been accepted ns a root and tho 
conjugate opti on has been selected, i!^c complex 
conjugate \ ■■ • x - i y is itself accepted as a character- 
istic root if ‘ 

♦ 

|y| > * 1 and I y I > 1 . 0*10 *[x|. 


3.9.7 


Accuracy of the Iterant Convergence Criteria 


Normally, the rooting procedure causes the iternnts 
to converge to an accurate charactcris t ic root 
where the corresponding functional values do not 
demonstrate a wild variance of magnitude be tv.'ccn 
succeeding iterations. If the estimate of a character- 
istic l* o o t causes immediate convergence (one iteration) 
to a root, the iteration procedure restarts with the 
same estimate but with a sealed down value of 3 
(ic, 3 = . 0 1 * $ ) (see section 2.2.C.7.), This is done 
to insure more accurate convergence to the actual 
characteristic root. The value to which the restart 
converges is accepted as being the actual root. It 
is also possible that the iternnts will converge but 
the co vr c soon din e functional values will decline m 
magnitude quite rapidly. This combination of events 


indicates that the last iterant is close to a 
characteristic root with respect to the other iter ants 
although i t may not bo the actual root. When such a 
condition is recognized, the iteration procedure 
restarts by taking the last iterant as the new 
estimate and scales down the value of £(ie. 0 a ,01*3). 
The value to which the restart converges is accepted 
as being the actual root. To recognize the rapid 
decline of the functional values, the following test 
is applied to each successive pair of functional 
values denoted f C X ^ ^ x ) and fpC^K respectively: 


• I£ l f (^ i . 1 )l > I f p O i )|*10 S , then restavt 

-tho iterative procedure with A^ as tho estimate. 


By using these special techniques, more confidence 
can be expressed in accepting the convergence of 
the it erants as valid criteria for being a character- 
istic root. , . , . 
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3.9.8 


Divergence of the Hooting Procedure 


Increases in i.ie; ; nitudo of functional valuer, correspond 
in g to successive iternnts gone rail y imp l i c s divcr- 
ponco of the rooting procedure. To insure uon- 
divergence, successive functional values aro not 
permitted to increase in magnitude by more than a 
factor of' 10, If 


f (X.) 


i (X. . 

p i - 1 


> 10,0 


where f (X U1 ) and f p (X.) denote successive 

functional values, then proceed with one of the 
following two solutions: 


(1) If this is the first succcssxyo 
functional value increase, then 
permit the iterative procedure to 
continue* 


(2) If this is the. second or later successive 
functional inerca.sc then let X ^ 

and recompute r p .tA^j « Tust the new value 

of f CX.) as before. Repeat this procedure 

-p i 

-at most 10 tines or until an acceptable 
value of f CXi) has been found. If after 

10 attempts the functional value f^fX^ 

is still unacceptable, then restart the 
rooting technique with a new estimate. 

End of Rooting Tost 


The program continues to find the characteristic 
roots of the matrix polynomial until either tho 
number of roots as specified by the user or all 
tho roots possessed by the matrix polynomial have* 
been computed* Two rooting completion tests nu^t 
bo satisfied for the rooting procedure to terninato 
on the latter condition. After each characteristic 
root has been computed, the program as s umc s . the re is 
at least one more characteristic root to find and 
determines the starring three itcrants (R Q , Rj, and 
R 2 ). The conditions required for tho termination 
of the rooting technique aro: 



£ 1 . 0*10 


-4 
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3.9.9 


lind of Rooting Test (Con t lnuod) 


f p (-100).^;(R 0 ) 

rTM 

p 2 ' 


1 . 0*10 


~4 


The re liability of the tests is that when all 
of the characteristic roots have been computed 
the polynomial formed by the characteristic roots 
differs from the characteristic polynomial by a 
constant , 

n 

i c . | A ( X ) [ n c if ( X - A ^ ) where the matrix 

i«l . polynomial possess 

. . , cs n character- 

istic roots, 


n 



f (X) « n tx-x 
‘ i ; i 1 1 


" c'x-xp 

i c X . 


Therefore, each iterant value will have a corresponding 
functional value of c and* the above two tests will 
be passed. If all of the characteristic roots have 
not been found, then at least one and usually both 
of the above tests will fail and cause the rooting 
routine to continue* 

3.9.10 'Restarts 

The iterative procedure described in this document 
can occasionally diverge from the characteristic 
roots, converge too rapidly and lose accuracy, or 
not converge within the forty iteration limit. 

* Logic is incorporated into the program to recognize 
the above adverse conditions and restart the 
iterative technique with a new estimate, If ten 
successive restarts arc attempted without convergence,, 
an error message is printed and the rooting procedure 
terminates for the current matrix polynomial. 
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3.9.11 


Hs t Imatos 


V/ JL r. h few oxccption:; duo to s 1 o\; convergence and 
iteration limits, tho success of the rooting 
technique docs not depend on .accurate' estiuatos 
of the charac t eri s t ic roots, The input of .accurate 
estimates can, however, minimize the number of 
iterations required for convergence to the character- 
istic roots and reduce computer run time* Tho 
program has five sources of estimates# 

. A user supplied estimate 

B modification of previously computed root 
of the current matrix polynomial 

C complex conjugate of previously computed 

complex root of the current matrix 
polynomial 

D Modification of a selected iterant value 

* 

E ono of four program default estimates 
0, -50i , -50, ^- 7 5 - 7 5 i ' 

• * A 

The user supplied os t i nntjss* can be input to the 

program either directly or indirectly bv the user. 

Datacard specific a ti o:\ of the estimates conpnso.1 
t'nc direct user control of estimates. Through the 
manipulation of program control cards, the user can 
cause the program to utilize characteristic roots 
generated in the previous case as estimates for 
the characteristic roots of the current ease* In 
this way the user has an indirect control of estimates. 
Program logic determines which estimate source is most 
suitable for supplying an estimate to the next root 
sought by the program, -The logic is patterned after 
the following table; 
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Table 3-1 .PROGRAM CONDITIONS 


User 

Estimate 
Avsi lab Ic 


Comp lex 
Conjugate 
of Last •• 
Root 

Availab 1c 


Last 

Root 

Avai I ab lo 


1 1 or ant s 

Converging 

Too 

Fast 


Rooting 
Technique 
Diverging 


YES * ■ NO 

NO 

NO : NO 

rani 

' NO ! 

NO 

; no > 

no r 


OTE: A blank slot in the table implies the contents has no effect on the 

program selection, of the ostinatc. 


s ti mates (Continued) 






















3.9.12 


t) o f a u 1 1 Estimates 


When all other estimate sources arc exhaust oil, 

0 n o of the prop v a m d o f a u ) t o s t i r:t a t e s i • » j 1 ■ ° c ^ 0 1 
ns the estimate lor the next characteristic root. 
There arc four default estimates# 


(1) 0* 0i 

(2) 0-50i 

(3) -50+01 

( 4 ) - 75-751 


normally, the first default estimate used by the 
program is 0 * 01 . If convergence to a characteristic 
root docs not occur within the required iteration 
limit then the next default estimate is used. Tills 
procedure is' continued until citner a root is found 
or a complete cycle of four default estimates are 
selected yielding no results. If a root is found 
using a default estimate and the iteration count 
for that estimate exceeds twenty five, then the next 
time default estimates are needed the cycle starts 
with the following default estimate. Otherwise,, 
it uses the default estimate which was used to i.md 
the last characteristic root. For clarification, 
c o n s i d c r t h e following example: 


Default Estimate 


Iteration Count 


O + Oi 
0 -SQx : 
- 50+01; 


-50 (non convergence) 
50 (non convergence) 
n (root found) 


If n s 2 5 , then the next default estimate 
cycle begins with -50+Qi as the first 
selection# 

If n>25, then the next default estimate 
cycle begins with -75-751 as the first 
selection# 

* (maximum of 50 iterations per estimate) 
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4.0 FLOWCHARTS 

4.1 General Program Logic 



START 


tw I — ’|l 


liuriALizr sam.” u; o data stability 

ANALYSIS PROGRAM 
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DOTH 


,^/LRO ORDLR^^v. 
- HOLD CIRCUIT^ 


MO 

***•''• 


j -i 

j piUUT Z DOMAIN 
i POLES AIM! li/.GIi 


7wa »»« i—» - 


i tirnnpnPATE ADDITIONAL CONTINUOUS 

VySTEK OPEN LOOP POLL AT ORIGIN 

DUE. TO ZERO ORDER HOLD CIRCUIT 


Z DOMAIN AND R DOMAIN | JRAHSFORKATIONS 
nr cv^T^M TRAhSPFR FUR Cl 10m Jlin 
ORDER HOLD CIRCUIT AND EITHER WITH OR 
WITHOUT OPTIONAL TRANSPORT LAG 




FREQUENCY RESPONSE IN THE R DOMAIN 
UTILIZING NYQUIST CRITERION: 

(1) SUMMARY PRINT OF CRITICAL 
POINTS 

(2) NYQUIST PLOT 

(3) BODE PLOT 




^^'AORE SAMPLE^*. 
^^PERIODS 



^ SAMPLE PERIOD - 
^ ROOT LOCUS 

I YES 
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4.2 Sampled Data Open Loop Transfer Function 
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NUMBER 

WITHIN 

LIMITS 


WRITE ERROR MESSAGE 


RETURN 







1 


SKI. EOT COIIT ( NUOUS SYSTEM OPEN LOOP POL 


REAL 


COMPUTE RESIDUE 
IN PARTIAL FRACTION 
EXPANSION 


TYPE \ ZERO 
POLE / 


COMPLEX 


{COMPUTE RESIDUE 
IN PARTIAL FRACTION 
EXPANSION 


PARTIAL FRACTION 
EXPANSION TERM IS 
OF THE FORM _a_ 

S + b 


PARTIAL FRACTION 
EXPANSION TERM IS 
ONE OF THE FORMS 
a , a , a 
S S 2 " S* 


S IMULTANECVSLY SOLVE 
FOR THE POLE AND ITS' 
COMPLEX CONJUGATE 


COMPUTE RESIDUES IN 
PARTIAL FRACTION 
EXPANSION: THE RESI- 
DUES ARE COMPLEX 
CONJUGATES 


THE COMBINED PARTIAL 
FRACTION EXPANSION 
TERM IS OF THE FORM 
_ a S+b 
cS z +JS+ e 







PERFORM R TRANSFORMATION 


SAVE R TRANSFORMATION TERM 
FOR FREQUENCY RESPONSE * 
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3 
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Frequency Response 




c 


( START ^ 

^ — - — ■ - I - ■ M ^ ^ 


INITIALIZE FOR FREQUENCY RESPONSE 


SELECT A FRCOUENCY INTERVAL: 

START FREOUENCY, STOP FREQUENCY, 
PERCENT INCREMENT, MINIMUM PHASE 
SHIFT, AND MAXIMUM PHASE SHIFT - 


f = START FREQUENCY 

_ e * /PERCENT INCREMENT* 

Af - f ( Too 


COMPUTE SYSTEM RESPONSE TO 
FREQUENCY f BY EVALUATING THE 
OPEN LOOP R DOMAIN TRANSFER 
FUNCTION 
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•’UNIT CIRCLE 
CROSSING 
? 



INTERPOLATE BETWEEN (f, AMP, PHA) 
AND (fL, AML, PHL) TO COMPUTE 
UNIT CIRCLE CROSSING FREQUENCY, 
PHASE AND DIRECTION. 




INTERPOLATE BETWEEN (f, AMP, 

PHA) AND (FL, AML, PHL ) TO 
COMPUTE ISO DEGREE CROSSING 
FREQUENCY, AMPLITUDE, AND ' 
DIRECTION 


SAVE (FL, AML, PHL) AS GAIN 
PEAK FREQUENCY, AMPLITUDE, 
AND PHASE; DETERMINE 
DIRECTION 


0 
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Characteristic Roots of a Matrix Polynomial 







SAVE THE ROOT CLOSEST IN 
MODULUS TO THE LAST ITERANT 
AS THE NEXT ITERANT 
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S.O Sample Problem 




T»” &T 


pitch ssv frequency respOncE n 0 b End Ins 
CONTINUOUS System MATRIX POLYNOMIA L 


• SAMPLING DE V I CE*~t"PO*f "T? '"COLUMN" f*Tf 


NONZERO MATRIX E l EheNTS » « » 


1 

I 

0 

I .0a3n0-o2 

l 

1 

2 

i #oooon+oa 

i 

2 

0 

-2. *6993-05 

1 

3 

0 

-3,39193-03 


1 

3 

2 

-3,5*t39S-o3 

1 

IS 

. 0 

l#399On*0O 

l 

l 5 

2 

I . 6N8Qn-03 

1 

16 

0 

1 ,33H00 + aa 


1 

1 8 

2 

7. **o7p0-n3 

2 

1 

0 

1 .5S52n*0i 

2 

2 

0 

1 .02S57-03 

2 

2 

1 

-i , noooo + 00 


2 

3 

2 

.N,89 0 72- n 2 

2 

IS 

0 

S.ol 37 n +oo 

2 

1 5 

2 

1 ,63600-02 

2 

16 

0 

1 . 8339 u + o l 


2 

18 

2 

2.3 i 5no-n2 

3 

1 

0 

-l «5*6Bn + 0| 

3 

1 

2 

-1 ,66800 + Ul 

3 

2 

1 

1 ,00000 + 00 


3 

3 

0 

3,4|2S2*o2 

3 

3 

1 

l.N778q+00' 

3 

3 

2 

1 ,00000+00 

N 

N 

0 

1 .00000+00 


S 

I 

0 

- I • DoOpO+nO 

S 

s 

0 

i ,boooo+oo 

& 

1 

1 

-1 ,00000 + 00 

6 

6 

0 

1 . S 7 9 l o + o N 


6 

6 

1 

2 » 0 1 06 2* q2 

6 

6 

2 

1*00000+00 

7 

1 

0 

1 ,S968q + 01 

7 

1 

2 

2.92120+00 


7 

2 

l 

•• 1 . ooooO+oQ 

7 

7 

0 

3. J 977S + 03 

7 

7 

l 

1 , 13097 + 02 

7 

7 

2 

1 . OOODO + OO 


8 

S 

0 

- i . ooOoo + no 

e 

e 

0 

1 .OODOO + DO 

9 

6 

0 

-1. 57910 + 0** 

9 

9 

0 

1,00000+00 


To 

7 

0 

•3 , 1 9775+0 3 

lo 

10 

0 

1 #00000 + 00 

10 

10 

l 

1 .00000 + 00 

1 1 

8 

0 

1 ,00000+00 . 


1 1 

1 1 

□ 

- 1 .00000*00 

12 

9 

0 

1 .oooon + oo 

Xr 

12 

0 

-1 ,00000 + 00 

i 3 

~lo 

□ 

1 .00000+00 


13 

13 

0 

- i , ooooo+oo 

U 

1 1 

□ 

9#o000n-0 | 

IN 

12 

0 

l, s 0000+00 

IN 

1 3 

0 

N ,50000-02 


IN 

1* 

0 

-i .ooooo+ao 

IN 

In 

1 

-5. ««990n-Oi 

IN 

IN 

2 

-2 , S 7 8 M q-Q2 

IN 

In 

3 

.6 , 98*oq_qN 


11 

IN 

N 

• l . o 6Spo-oS 

IN 

lH 

s 

-6. 7299(1-08 

is 

is 

0 

-1 , ODOOO+OO 

IS 

17 

0 

l ,00000 + 00 


1* 

1 8 

0 

- 1 . OoOoO+oO 

16 

17 

0 

1 .OOOQn + OO 

“17 

IN 

"o 

1 ,00000+00 

17 

In 

1 

5 . 00000-0 1 


17 

1 7 

0 

-l.OOOoO+OO 

1 P 

IN 

0 

l .oooon + oo 

18 

IN 

1 

S, 00000-0 1 

1 6 

1 8 

0 

-1 ,00000+00 




cn 

» 

to 


PITCH sSV FREQUENCY REspONCE N 0 bEmDIn 

calculation of the continuous System cl 

E I G E n V 


ROOT , ITERATION 

n UMbE« ScQUENCE CODE COUNT 


real 

PART 


1 IH 

2 1 5 ’ 

3 12 

4 13 

5 10 

6 1 1 

7 6 

A 7 

9 B 

10 ’ 

11 3 

12 "" '1 

13 S 

I **’ 2 

15 1 


3 

V 

3 

4 
3 
1 

3 

4 

3 

4 

3 

4 
3 
3 
3 


2 

0 ~ 

0 

0 

6 

0 

9 

O' 

7 

0 

7 

0 ‘ 

4 


■£ 


-9,84007 JH+qi 

T9'V8‘tb8 73'l + oi'' 
-7,5924552+01 
'-7.5929552+01 

- i , 5369791 +0 ! 
-j ,5369791 +qj 

-7,5957020+DI 
' - 2*5957020 + 0 1 

-9,5658466^0 j 

“ - 9 , 5650466.01 

-1,6537968+00 
-1 , 65 37^ 6 B + d q 

-I ,9956566+00 
“T4~,"7 3 0 9 3 3 8 -0 f 
9,3610 7 46-04^ 


3 




fWque'nc V 'Intervals • * . 


per cent 


m I NImuH 

PHASE SHIFT 


MAX I MUM 

PHASE SHIF't 


UODOOO-02 1,00000+00 2. 50000*01 2,00000+00 S , OoOdO +0(3 

1 ,00000 + 00 1. 00 00 0 + 0 t 2, SOOOo + O l 2,00 00 0 +00 ' 5 ,0 q 000+0O 


OPEN PHASg; 

LOOP SHIFT “ NYQUlsT BODE 

GAIN' ROW COL TEST PLOT PLOT 


OP-RD 


1 7 I R • 




PITCH ssv FREQUENCY R E S poNcE n° sending T-"*'r 

OP-RO “ ' OP- R O' f ir ST 



CpS 

gain 

amplitude 

DECIBELS 

phase 


CPS 

GAIN 

A MPL I TUDE 

DECIBELS 

PHASE 


• 0 1 ODO 
126.651 *U 1 

OP-RO 

2.5063+02 

‘4.7981 +0] 

“321,902 







I 

101 

• 01 250 

• 32110) 

"Tjp-ro 

3 . 4J3 5 + 02 

5 , 0 664 + 0T 

318,728 

• 

.01312 
9&.M9i28 > 

OP-rD 

3,7371+02 

‘5 • ] 4 5 1 +0 i' — 







• 

1 

‘316.401 

I 92 

‘•DV375 
• 1 1008) 

OP-rO 

9.1 1 4 6 ♦ 0 2 

5,2287+01 

313,155 


.0 1 M37 
68* 10526 > 











< 

OP-RD 

4 • 5^97*02' 

5.3l60+0i 

308,739- 

t 66 

.23070) 

Op-r~6 

4.7873*0^ 

‘5V360 2 + 0 T 

“ 3 05,998 


•' .01500 

84.43422) 











c 

OP-rD 

5,0347+02 

5.4039+Oj 

302.646 

62 

•0153 1 
• 71107) 

OP-rD 

' 577868 +02 

'5V4‘4^*DT 

2??.244 ~ 


*0(562 

6l .05684) 











t 

OP-rO 

5.5354+02 

5.4663+0i 

2 9 5 , j 62 

* 79 

• 0T5 9 4 
.4674?) 

OP-rD 

577^ 9 j ♦ 0 2 

■57572 2*01 

290,-583 ~ 













cn < 

•0160? 

78.6V596) 

OP-rO 

5.8758 + Q 2 

5 . 536 1 *0 | 

^2 8a vm 

77 

. DT62 5 
• 93927) 

OP^RlS 

5T973q + 02 " 

-57 557 *r* or 

285. 52T 

i 

cn 

•01641 
77. 1969?) 

OP-RD 










< 

6*0586+02 

5.5647 + 0 | 

28278 22 

< 76 

• 0 1 656 

• 46871 ) 

QP-rO 

6713D4+0Z 

S75750 +01 

2807024 “ 


.01672 

75.75405) 

OP-RD 

6.1863+02 








2 7 4 . 1 83 

( 

5*582?+0 | 

2?7 , 1 3? 

* 75 

• Q1687 
•052*2) 

OP-rD 

6.2247+02 

5 , 5882+01 


.01703 

74.36406 ) 

OP-RD* 










( 

6 .244 1 +02 

5.S?o9+0) 

271.175 

< 73 

•"t i 7 1? 

.68803) 

Op-rD 

67 243^^0 2 ' 

S75909+DI 

268,133' 


.01734 

73.02417) 

OP-rD 

6.2228+02 

5.5880+01 

265,079 - 







I 

< 72 

» 0 l 7 5o 
•37217) 

OP-rO 

6. 1 B2o+02 

5; 582 3 + 0 I 

2*2,034 


♦01766 

71.73170) 

OP-RO 

6.1219+02 

5. 5738 + Di 

'259,019 ‘ ~ 



' 



256,054 

( 

< 71 

•0 1 761 
• 10248 ) 

Op-rD 

6.0439+02 

5,5626+01 


.01797 
70.46419 ) 

OP-rO - 










( 

5.9497+02 

5 . 54 90 + u i . 

2 5 J , 1 5 6 

* 6? 

-+01 B 17 

•B7657) 

op-rd 

5. 84 1 4+02 

“5753 3 0*01 

250.341 


.0)828 

OP-RO 

5.7212+02 

5.5150+Ot 









247,622 


• oi 0 4 *r 

OP-rT) 

5*5914+02 

5 , 4?50 + 0 I 

~24S , 006 




( 6^^7933) 

. 01 8S9 

C" 68. I IH97) 


T 48.69221) 


0P-r0 


S,*tSH3+02 5.*)735+0| 2^2*50* 


,01075 OP-rD 


S • 3 l 1 9 + 02 5 , 4505*01 2 ^ 0.121 


< 47*5‘*73H> 



PIjCH Ssv FREQUENCY ReSpONCE no 0 e nd 1 Ng •' - f ■ 6 1~ 

OP-RD OP-RD t ""4 1“" 



CpS 

Gain 

AMPLITUDE 

decibels 

phase 


CPS 

GA In 

amplitude 

DECIBELS 

phase 


,01984 

OP-RO 

4 . 3013*02 

5 , 2672 + 0 ! 

226 , 676 ' 

— 

*02016 

"‘"Op-rET 

4 , 0374+02 

5 , 2122*01 

223,776 “ 

( 

63 . 82425 ) 




, 

( 

62 * 83472 ) 




1 • 


.02047 

OP-rD 

3 , 7910*02 

5 .l 575 * 0 i 

221 , 221 " 

— 

. 0207 a 

0 P “ R 0 * 

3*5629 + 02 

5 , 1036*01 

: 1 

- 218.971 

{ 

61 * 87541 l 





( 

6 0 * 94 H?SJ 





J 



.02141 

OP-RD 

3 * 1594*02 

4 , 9992 * 0 ! 

21572 37 


• 0 2*03 

Dp-RD 

r* a 1 9 3 *0 z 

H t 7003 * 0 i 

212*320 

1 

59 . 16852 ) 





( 

57 ♦ 40706 1 


















r ,02266 — 

OP-rO 

2 . 5325*02 

' 4,8071 * 0 j“ 

2 10.025 


•! 5 Z 3 ?T 

OP-rO" 

2 . 0827*02 

4 , 6373*0 1 

206 1 757 

( 

55.901201 





( 

52 * 97825 ) 






.02516 — - OP-RD 
( So. 34577 ) 


J- - 7 g + Q jp— -q , 4 0 6 6 + 0 j 20 T ,'668 *o' 2 ' 7 &l dp-R'O 1 * 3037*02 4 , 2303*01 202.477 

t 4S*7947l ) 


♦ 03 266 — OP-RD 8v2867*tn 3 .836 6*0^ jtJ'TTSTF rtnTSS OTP^TTD STBsOSTtr 


188*0 I 202*444' 


<f ( 30.. 783021 

CO 


( 33*633341 


.04766 OP-RO' 

( 26.575731 


375446*01 37099 1*0 j 2057329 705766 6"f^WT> 2 74489*0 1 777777*01 208; 330' 

( 21 * 96627 ) 


•06766 

( 18 . 71940 ) 


OP-RD 


1 . 0327*0 1 2, 5 262*0 j “jelTVOOi V q 77 66 0 P-RD' 

( 16 * 30873 ) 


7 * 4 4 52*07 273 I 9 B + 0 1 213.290 


" .09766 0 P - R 0 9T9 2 8 2~* 0 0 17 9 9 3 7 ♦ D gT67B BU~™ rTT 7 67 67 ^rTJ 7T4T2 5^00 T777 9 9 *731 2T?T4 8 1 

(12*968 4 6) ( 10*76375 1 


.13766 OP-rD 5.8298*00 I.53l3*0j J>21. 456^ .J5766 Op-R0^ 

(9.19964) ( 8*03234) 


4 * 75 Zo *00 1735 38*01 223. 032 


. 1 9766 

( .^. 40635 ) 


OP-rO 3 . 3977*00 1 . 0624 * 0 I 225 , SoS * 2 3 7 6 6 "— OP*rD 2 . 5905 +OO 872944*00 227.467 

1 5 * 32760 ) 


,27766 "" OP-RD * 2*0821 *QD 6.3 70Z + 0Q- 229, joS 731766 Op-Rl 

( 4 . 55960 ) * 3 * 98494 ) 


• 7 26 6*'00 477 439*0 0 230*485 


,39766 OP-RD 1.2768 + 00 2.1222*0q,’ 232,579 ' .47766" OP-RO 1*0004*00 7*2675-02 233, 9J2 


1 


■J 


"3 0 J 


( ' 2 . 4 * 4033 ) 


,55766 

< 2.247*42) 


OP.rO 


9.3 j 7*4-0 1 II .6 002 + Oq *39. 620 


.43766 


op-rD 


7.04?6-0l -3, 0121*00 234. 85*4 


{ 1.96195) 



Ol-s 


.pitch ssv frequency REspo^ce *no bending" T« "6"T 


OP-RQ T* 6 l 


AMPLITUDE decibels phase 


amplitude decibels phase 


I .OODOO, 

1 • zst SH I 

I .50000 
.03032) 

1.75000 

•71202) 

2*00000 

•6)907) 

2*25000 
.5078 1 > 

2.50000 

•00983) 

2*87500 

.‘♦2119) 

2.92)87 

• H 1 380 ) 

2.95312 

.*♦0900) 

2.98037 
. ‘♦0H30 ) 

3 * 01562 ’ 

.39968) 

3.09375 
« 38 B 5 0 ) 


OP-RD 1. 1573-01 "'i7.623B*0a 232,060 


OP-rO 2.5278-01 -1.19HS+0) 2 23,)?7 


OP-RD 


2. □*«*♦ 8-0 r: — -1 .3787*0 i 217,695 


OP-rD - ' I • 66 IB-0 j -l .5588 + 0) 2) 1,727 


OP-RD 1.3381-01“ -1.7H70*0) -2O5;003' 


0 P - p 0 t VO 0 3 6 -0 1“ 1 , 9 6 2 9 ♦ Q f y 9 9“ )'8 8' 


OP-RD’ 5.78)0-02 -2.R760 + 01 )'99;rR0" 


OP-RO 5.2598-02 -2.5509+0) 2057219' 


OP-RD' 


-5t05T1=T32 -2.5932 + 0 


OP-rD 5.Q951-02 -2.5857 + 0) 2l 8 ,8H< 


OP-RO 


5.5126-02 -2.5173+Oj 226, O0S' 


OP-rD 8 .'03 31-02 ~ — -2 , 1 9 0 2*0 ~ *28 ; 035" 


'17 2 5 D 00 “ 
) * PQ*)B6 ) 

T* 6 2500 ' 

•76853) 


• Ji 6 2 9 3 )_ 

“ 2 i 125oo~ 

.58177) 

_ 2'»'375 o o 
* 51 734 > 

“Z'r625oo — 
_ • R 6 R 8 5J|^ 

•'279 0 * 25 — 
•01*20) 

'2-T93750— 

• 91 I 39 ) 

~27 7 ^ 8 75 — 

• *t O&60 ) 

-J'.OOOOO— 
■« 40198) 

“3 VO 31 25” 
*39 741) 

~3Tvyo9 37 
*38638 ) 


"OP^RD 3 VI 3 2 5-01 =79 ,9 0 0 6» 00 2 2 8 7 0 8 2' 


0 p- R 0- 2<27O0-Ol -1,2870+01 220,51 1 


IvBr 3 0-0 1 =TT^*86*0t 2 1 4 • 7 59 


r99R 5-0 | VT7*& I 0*0 1 — 208.615 


Op-rD* 


VTB’o-Ol =; 178 996 + 01 20 2 . 265 


-OP-RO 8 * 9 6 9 0-0 2 = 270 9 H 5 * 01 1 9 6 , 5 1 I 


OP-RO" 


5*0)09-02 -2,5335+01“ 202.878 


"OP-rD 5 V I 300-02 V 2 i‘ 5797*01 208.028 


► 33 9=TQ2 VT27 5 962^0 I “71 07 9 6 S' 


*57 2508-02 =ZV5595 + 01 222. 67* 


“5 » 8 8 1 7702 7279 6 10*0 T 2 2 8 ; 7 3 \ 


7-5 082 VO 2 =27136 3*01 2257280' 


3.125 00 OP-RD 8,97)7-02 -2.09H3*0| 221,9)5 3*100*2 Op-RD 9<rZ79 9 - 0 2 2 , 0* 0 9 + 0 I " 2 1 8 , 206 


3 


r • 382 i i r 


3. IS*25 OP-pD 

{ . 3800 1 1 


9»>466<t'-02 •2.0 < +76»0| 21*1,308 3* 17187 OP-rP 

- 07792 > 


9.S39A-0Z -2.0H07+01 210.637 


3,18750 OP~rO 

( .37586J " 


7.5I7R-02 «2.0H30'*‘0 J 20 7 ,072 3*20313 ' OP“RO 

1 *37301 ) 


7**1209-02 -2.0Sl8*Ol 203,757 



21-tf 


Pitch ssv f-Reduenc'iT r es*»onCe "no "bending " f«‘6i 


OP-RD" 


OP-RD T* 6 


AMPLITUDE oecibels phase 


amplitude decibels phase 


3,25000 
C t3&779» 


OP.RO 0,87i a«O2 — "-2. ] 090*0 f 


P 5 . 93 ? 3 ". 2 6 S 6 2 ~ 

, ( #36581) 


Op-RO 


r? 6 «|7y^a2 L2VI 2 6 3*0 ; 


3. 2B1 25 
{ .36386) 


OP-rD 8.9161-02 -2.. 1998 + 01 


1 9 I ,087 - a 3.31250 ' 

t *36000) 


OP-R'O 7 .9523-0 2 -2.1 ?9d*0I‘ 187,956 


3.39375 
< .35621) 


OP-RO 7 , 5020-02 ~ -2.2H96*Qj i89,361' 


i»3 7500 

*35299) 


0 p - R O' 7 *07 3 6 - O'? =7 , 3 0 0 7 ♦ 0 I 1 8 I . 6 6 3 


3.90625 
< .398831 


OP-rO 6,6681-02 -2. 3520*01 


{79 "2 56 3*9375fl- 

t .39523) 


"OP-rD 6 '• 28 52-02 i2; 9039*01 1 77; 0*3 


3.96875 
I .39)70) 


OP-rD 5,9222-02 -2.9550*0i 


"{75,0 26 3*53 1 25” 

t .33980) 


OP-rO S . 29 7 6 .02 -2,560 i*Ql 1 7 j ,262 


3.59375 
•328 13) 


OP-rD 9 . 628 1-02 -2.6692*01-“ 


{ 6 7 ,7 2 0 3V6 5 6 2 S~ 

l *32167) 


VOSt 0-02 =2 i-7 89?*01 169 , 236 


3 • 7 i 875 
I ,31592) 


Op-RO - “ 3.5079-02”” -2.9099*01 {60.675“ 


» 7 0 125” 
•30935) 


Op-R D 2.9916-02 '-3. 0982*0 1 156.685 


3.89375 
C .30397) 

3.93750 

I .29997) 


OP-rD 2. 9969-02 '"~‘-3 . 20 9 7*0 1 j 57; 6 69 


OP-RO IT79 76-02 i3 • 9906*0 ] 


~3"* 9 0 625” 
_• 29776) 

-yvn ^75 

• 29221 ) 


OP-rD '2'i 02* 1 — 0 2 -3,3667*01 197,679 


’* 57 9 9 =T) 2 ?37 6 055*0 1 1 9 J i 299 


9,00000 
I ,28950) 


OP-rO ' ‘ “ 1 , 3 5B2-0 2 -3,739l*0i {37,075“ 


’9V015 6 2” 
•28816) 


OP-rO 1,2527-02 -3.8093*01 139,616 


* 9,03 1 25 . 

( ,28683) 


OP-R O ' 1 i T9 9 6 -02 -3 ; 6 7 0 9 ♦ 0 j j~3 1' , 8 3< 


VQ9687 - 
• 28551 ) 


_ OT-rO nro 9 9 0 -0 2 -3-; 9539 + 01 1 28.627 


9.06250” 

.1 .28919) 


OP-R 0 9v5T7*r-a3 -9T0 930*0; 


( .28289) 


r?5 8 5 3'- 03 ^f7T325“*01 r?0T9 6 6' 


9.08599 OP-RO 8.1376-03 -9.l79o*Oi- {17.920 9-09375 OP-RD 7.'7 o6i-q3 -9,2263*01 1 15.153 


t 


241 


T » 2 0 1 5 9| 


4,10156 

OP-rD 

7.2921-03 

-4,2743+01 

T12.098 

4.10937 

OP-rD 

6.8977-03 

— 4 , 32 j!6 + Q 1 

108,713 

; 

f .28095) 




( 

.28031 ) 






. 4*1 ) 7 1 9 

OP-rD 

6 . S27 1-03 

-4.3706+0 i 

f04.9>4 

4 « 1 2500 

op-rO 

6. 1843-03 

-4,4174+01 

1 00 * 064 


C .27967) 




1 

•27903 ) 





Oi 
\ \ 

4.1328} 

OP-rD 

5.8727-03 

-4 *4623 + 0 | 

96,30? 

4*14063 

OP-rD 

5 » 5?8q-Q3 

-4,5039+01 

91.332 

£( 


< .278391 ‘ 1 ' . 27 7 76 > 



5-14 


Pl T CH SSV FREQUENCY R E 9P 0 N CE N° 6 eND I NG 
OP-RD ' OP-R0 


Cp S GAIM amplitude DECIBELS ph ASE 


0,10053 OP-RO ' 5". 0 7 6 1 • 0 3 "" .H*523l*0f 88,607 

t .27700) . i. 


0 « 1 5 2 30 O p -rD 5, 2*65-0 3 -0,5570+0 \ 03,03* 

( .27*81 > . . _ 

0.1*016 —OP-RD 5*1 05^-03 -0.5839 + 0] 77^071 

( .276 19) ... - 

0.16797 OP-rD 0 .9097—03 -0*6021+0] 70,783 

( .27556) 


0.1757B OP-RD ' 0.9098-03 “ -0.61O8+Oj 60;30O 

( .27090) 


0,1 8359 -'■■■ OP-rD 0.9597-03 -0.6O91+OX "577823' 

( . .27032) ” 


- 0,19101 - ‘ OP-RD ~ 5.0275-03 -0.5973+0] 51,0|T 

I • .27370) __ 


0* 19922 OP-rD 5. 1077-03 -0.5768 + O t ' "05,288" 

1 .27308) _ - 

0,207 03 Op-RD 5 * 3213-03 -“0"; 50 80 + 0 ] 3970 **~ 

i .27206) _ 


0.2)000 OP-RD "5*5390-03 "-0.5131+Oj 30.O6Z 

C .27185) _____ - — 

0.22266 OP-RD 5.7967-03 .0 .07 36 + 0] ?9;p9r“ 

J-n, ’ 27 121,1 - 

0.23007 OP-RD 6,0909-03 -0V0 306 + 0] 20,507- 

( .270*3) 

0,20219 OP-RO 6.5850-03' -0.3629+0! " 18,S)0 


T* 61 



^^72) 



.. .. 


H.257S) 

OP-rD 

7*3 2 H6-03 

«H.Z709*0j 

1 l ,7HB 

t •2*651) 





• 27 3 H 4 ) 

OP — rD 

0. 1303-03 

»S, 1 798 + 0 i 

6 # )07 

( .26732) 





*1 • 28906 

OP.rD 

0.9908-03 


1,568 


«t»29 6 e 0 0 P - rO 9,M2 03 , p3 „q.05l9* 0 1 3& y * 5^3 

• 2 * 553 ) 
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PItCH 5s v F«EOUeNcr r E5pO n CE ' NO'b e ndINg " 
OP-RD 6 P«* R B” 

CoS SA In AMPLITUDE DECIBELS PHaSE _ 

' " *1.31250 OP-RD li03|9-02 -3. 9727*07 35579^9“ “ 

< ,26936) 


<1.3*1375 - ' 0P-rD " 1.217*1-02 -3.8292*0! 350,169 — 

I .262021 


R. 3750Q - OP-RD IV *t 07 2 -02 -3^703 3*01 3*1 5^65^ 

I .25972) 

<1.93750 “ OP-RD "TV792A-0 2 -3 . 9930 + 0 f”i 38 ; 0 H3~ 

( .25520) 

9.5Q000 OP-RD 2*1 000-02 -3 .3231+0) 333.689 ' 

< .25079) ‘ _ ; __ 

9.56250 *■ OP-RD 2.5657-02 -3.18U + 0) T297^fT — 

< .29699) 


9,68750 ' OP-RD 3,3286-02 - „2.9S55*0j 322.260 

< .23819) ' 

9. B | 250 OP-rD - 9,0769-02 -2, 779 9 + 0) 316.092 

I .23028) 

• 9.93750 OP-RO 938079-02 -2.6362*01 3Tff^4t 

I .22272) 


S. 06250 OP-RD 5,5205-02 -2.5160 + Oj ■309~ 728— 

C _ .21598) 

5. 18750 — OP-RD “ 6.2195-02 -239 132*0 f 2??."309 

1 .20859) 

5,31250 0 P - R D —* * 887 9-02 =?T32 3 8+ 0 t 2 ?^7«73 5— 

( .20189) 


S. 93750 OP-rD" ~ 1 ,5389-02”' -2.29S9 + 0) *88,581 


T« 6 I 




5.56250 . 

OP-rD 

6.1 659-02 

-2. l760*0 1 

203,222 

• 1 0939 ) 





S . 60 750 

OP-RO 

0.7651-02 

-2 • 1 1 95+0 | 

277,639 

• 10391.) 

5.81250 
• 17769) 

OP-rD 

9*3351-02 

-2,0590+0! 

272,920 



ifl j 


• 19239 ) 

5 .62 5 DO OP-RO 8.9600-02 -2.1999+01 200.5 35 

• I 8 6 3 S~) 


9.0539-02 -2. 0063+01 275.139 

u 

is 

.07500 OP-RO 9.6Q01-O2 -2.0397+01 2*?. 698 

• 17 h 9 1 ) 


5.7 SOOO ‘ Op-rD 
* • 1 S053 » 




6.06250 OP-rD 

« U68HI 


1, 0 375-01 -1*V68l*0i- ~ z4 1,168 


6. 18750 OP-RD' 

• 161 671 


li 0 & 3 8 - 0 1 -T -.9301+0 1 2 5 5,9 31 


6.31250 OP-rD 

• I 56671 


1, l 260-0 1 -1 .8969+0 j '250.353 




6.13750 OP-RD 

.151831 


1.1638-0|- -1.8683+Oj 2li;71T 


6*56250 OP-RO 1.1969-01 »i,B13?*0l 239.099— 

. . M7 1 21 1 ...... 


6*68750 OP-RO 

. 1 12551 


1 i 225 1-01 -I .8237 + 0 i 233; 135“ 


6.81250 OP-rD 

• 1 30 1 1 1 


1,218 3-0 1 - l,8071 + 0t ' ' 227,755 


6.93750 
• 13378 1 


OP-RO 


1* 26 61-0 1 -! •' 


7.06250 
. 1 2957 1 


OP-RO 


1.2791-Oj '-1.7B60*0 i 216,387 


7.1 8750 
.12517) 


OP-RO" " J.2P?3-0l -l .7807*0| 210.718 


7.31250" 

. 12116 ) 


“OP-rD- 


706^“ 


7.13750 


OP-rD 


1 * 288 6-01 — ' -1 .7790 + 0 i /" ' ' (99,<isr 



I^^SS) 



• 


T 

*11563) 

— - - 





7,56250 

OP-rD 

1 *2*28-01 

„1 ,7039*01 

1 9 3 , 87 1 


7*62500 

OP-rD 

1*2770-01 

-1,7871*01 

1*1 .090 

*1 1373) 






* 1 1 Fa 6 ) 





7,68750 

OP-RO 

l • 27 2 2-0 1 

«l,790?»0i 

1 88 ( 338 


7.75000 

OP-RD 

1 .Z657-0J 

-1,7958*01 

185.590 

• 1 1000 ) 





t 

• 108 16) 





7,81250 

op-rD 

1.2582-01 

-1 .SQOS + Ol 

1 82,856 


7*87500 

OP-rD 

1.2500-0) 

-1,8062*01 

180.136 

* 10638) 





< 

• 10855) 




■ 



5-20 




pitch 5$V 

TReDUeNCY 

" E 5P O^C E NO 

Bending 

T“ 61 ‘ 







OP-RD 



OP-RD 

T“ 61 




► 


CpS 

Gain 

AMPLITUDE 

DECIBELS 

phase 

CPS 

GA I N 

AMPL I TUOE 

OEC 1 BELS 

phase 


7,93750 
• 10277) 










( 

OP-RD 

1 .2009-0) 

- 1 * 8 1 25 + 0 i 

1 77 , 032 

( 

8 .00000 
• 10100) 

OP-RD 

1 *231 j-Ol 

71,8190 + 0)' 

170.702' - , 

LI 


8,06250 ' 

•09926) 

O p -rD 

" 1 ;2Z06-0 j 








( 

-1 , 8268 + Q j 

1 72.069 

t 

8. 1 2500 
*09753) 

OP-rD 

1 * 209^-0 l 

•”--1.8308 + 01 

169.011 — 


0.18750 

.09582 > 








. 


I 

OP-RD 

1 • I 973 -OT 

71 , 8032+OT 

1 66,77B 

1 

BTZFOO'O 

*09012) 

Op-RD 

ITT 0 5 6701 

-1 , 8521 +01 

|60i )06 


8.31250 " 

.092001 


1.1729-01 








( 

OP-rD 

-1 ,86l5+0i 

1 6 I , S 3 7 

( 

B727SOO 

*09078) 

OP-rD 

I. 1590-0 I 

71,8712*01 

”158,906 


8.03,750 
• 08913 I 

OP-RO -• 

1 .1063-01 

-1,0610 + 01 






153.8 12 -- 

( 

1 56.370 

t 

8*50000 

*0875o) 

Op-RO 

1*1320-01 

■-1.892q.oi 

* 


a, 56250 
.08598) 


OP-RO I *1103-0 i -1 , 9029*0 ) 1 B 1T270— 


< 


'B'. 6 2500“' 
•08027) 


'OP-RD' 


T#103 9=OT ST, 9 l H J *0 l 108,703 


8.68750 OP-RD 1 *0893-01 -1,9257+0] 1**6,232 ; BV75000 OF^W 

*08267 ) -1*00109) 


TXJ 7 8 S'- 0 1 TJ7?376*0l 103,737 


8.01250 OP-rD 1.0596-01 -1.9097+0] ' |0l,257””' B*87500 — OP~-rD' 

< .07953) ( .07797) 


Ti OH Ht-Ol -TV 96 2 I ♦ 0 I '-138,792 


8.93750 

.076031 


OP-RO 


I .0295-0 J 7)7970 7+ Q{ f3'67 


( *07089) 


QP-R D I nr I 0 0-01 — 7179876*01 r 33,9 o : 


9,0 6 250 OP-RD 9,9 9 30-02" ' -2. 0006 + 0 t 1 3 1 V 7 B — 9 *1250(7 Op-W 

*07337) | *07186) 


'9? 80 1 8-02 -270 1 38 + 0 T 129; 065 


9.187SO ' OP-RD 
1 .07036) 


9,69 13-02 -2 *0272 + 01 f26;66 6 _ 


9T25 0 0 0 DP - R 0 9 i 5 0 l'H-0 2 7270 008 + 0 1 1 20.277 

t *06887) 


9,31250 — OP-RD “-9n 92 0- 02 7270 500 +0 ) " 1 2 1 , BT8 ~9T 3 7Su-g Op- ftp 

1 .06739) ( *06592)’ 




9.0 3750 OP-rD 9,0 979-0 2 . 2 , 082 1 +0 1 - ~ l 17.170 9 i 50000 OP-rD " 8 . 9520-02 - 2,096 1 + 01 — 1 10 . 


820 


< 


- 46 ) 


r 


06301')' 


9,56250 

OP.RO 

8, 8093-02 

- 2 . 1101 * 0 ! 

1 12. *470 

9.62500 

OP-RD 

B,667s-02 

-2, 12*42*01 

1 10. 1*41 

.□6157) 




( 

• 0601 HI 





9.6B750 

OP-RD 

8.5277-02 

-2.1 38 3 + 0 j 

107,813 

9.75000 • 

Op-RD 

0.3099-02 

-2,1525*01 

105.989 

*05872) 




( 

■ *05730) 






PITCH Ssv FREQUENCY REspONCE NO B^NoINg T* 61 

OP — RD * - "" OP-RD f* 6f 


CpS GAIn AMPLITUDE DECIBELS PHASE CPS GAljy AMPLITUDE DECIBELS PHASE 

✓ 

9.93750 OP-RD 7*9897-02 ^2*I9H’*0X 9a^S<n fOTOOWO ’ tip-fib 7T86TT=T32 ;2;20?0*DI *8.23* 

( *05310) < -06171) n 
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' T c H S S V FREQUENCY rESpONCE NO ^ENDING 

OP-RO "" OP-RO' 

SYSTEM OPENED At" vAR I ABLE Op-Rn 


T» 6 1 


r«6T' 


unit amplitudes 

phase 


180 degree PHASES 


GAIN PEAkS 


t p s * mplITuoe? PHASES M a Rg f N 


TpS AMpLltUDts DECIBELS PHASES 


Tp5 Amplitudes oEcIb^Ls phases 


Op-rO .‘‘els | .0000 DEc 233,95 S3. 9 S 3,396* 6.7?30- O 2 -23.36 100,00 C« *0i7 0 6,2001 *02 55.?i 271,17 c * 

( 2.*270> I ,350o> 7'70i360,) 

7 , a 7 8 I " ~ 1 "2 9 9 5 "-of - 'f» ',~0 7 j 8 Q 76 0 ~CW TiT 7 I 9 97 S3 9 f -T) 2 -2 0 • 0 l 2 1 0 • 6 M c w 

* ,1005) , *3 779) 

7 * 3 1 2s 1,2903-01 ,,-17.79 205,07 c* 

'< • t 21 51 


PLOT array 
PHASE- 

FOR NICHOLS 
VS, DB 

PLOT - - NO* 

of points ■ 

256 

- 

— 

— 



— 

-3 8 ,0 9 BH 

07.9806 

-01 .27i8 

50 1**00 

-03 .S’ff* 

51,9507 

-0*1 8009 

52. 2866 

-5 1.2*08 

53.1597 

-50.0022 

53.60l8 

-57. 1501 

Sm.0395 

-*0.7558 

50 .0638 

-60,8380 

50.8*30 

-*9.01*6 

55,2222 

-71 ,8093 

55.3010 

- 7 1, . 0 7 8 a 

55,5239 ■- 

' "77., 778“ 

55.6075“ 

-79197*2 

55.7098 

~“-0 2 . 8* 1 0 

55.8287 - 

-85,8 1 68 

55, 8870 

-88 . 8 ? S5 

5519090 

-9i,0*7 3 

55.9 0 8 7 

-90 .92,3 

55.0797 

-97.9*6 1 

55,8225 

-100.9010 

55.7377 

. 1 03. 9*46 l 

55,6260 

- j 06. 6039 

55 , 0900 

-109.6588 

55.3300 ■ 

— i 12,3783 

“55. 1098 • 

-1 J 0 , 9 9 2 0 

50.9S O 5 

.1 J7.R9R1 

5017307 

1 9. a7fl? 

50,5Q5o 

-1 22. 1 006 

50,2*30 

- 1 20 , 2 9 1 1 

50.0121 

-12<-.3l97 

53,7531 

.130,0350 

5312187 - 

-,33.3235 

52.6720“ 

-136,2200 

—52.1219— 

-1 38,7790 ' 

51,5751 ' 

-101 .0292 

5 1 ,03*0 
00,86*3 

-100,7*27 

09,9920 

-I 07, *79fl 

* *19.0027 

- 109.9750 

08,071 2 

-153,2025 

06,3725 

-155,3318 

-l57,5?27 

02.3032 

- j 5 6 , 3 6 0 3 

38.367* 

-157.5560 

35.3883 

-1 5m, *70 7 

30.99,3 

-151, 6700 

27,7793 

. 1 08,99*43 

25,2*19 

-t 06, 7022 

23. ,983 

-103.1201 

19.9370 

- 1 90.5 1 78 

17.3993 

- 1 38, 5900 

15, 3i 30 

. 1 36.9*77 

13,5376 

-130,0907 

10,6237 

'- 1 32,5333' 

8.2900 '• - 

-1 30,0909 — 

— ' A , 37g2 ‘ “ 

-1 7 9 .5l H6 

0.7*139 

-127,0200 

2.1222 

- j 26,0 88 2 

.0727 

-125,3720 

-j .*002 

-125, ,050 

-3.0121 

-J ?5.77o9 

-5.3J79 

-127.3903 

-71 1010 *“ 

-,29.*723 

-8,7*98 

-127,9396 

-7.6230 

“l3, ,9180 

-9,9006 “ *“ 

- | 3*. B03D 

.1 1 , 9h50 

.139.0892 

-12.876, 

- ,02.3077 

-13,787, 

- ,05.2005 

-10,6859 

-108,2729 

-1 5.5B80 

-1S1 , 3 8 6 0 

-l 6, 5 1 fl3 

- 1 5»(.S572 

-171 07o5 

-,57,735, 

-18,09*2 

-1*0,8 1 1 6 

-19.6293 

-1*3.0889 

-20.9051 

-160,5597 

-20.7599 

-157.1219 

-2513305 

-1 50 .78 1 5 

-25,5890 

-151.97,6 

-25.7970 

-108,6969 

-25.93,9 

-105,0301 

-25.96,9 

- 1 0 I * 1 5 1 7 

" " -2518570 ' ' 

-137.32*2 

-25.5955' 

■-133.9153 

—-25.1729 •— 

-13i,?A?3 — 

'■'-2 0.609? 

-131. 9*06 

-21 . 9q 2 3 

- 1 30 , 7 1 99 

-2, 13*25 

-, 38.n85 0 

-20,9025 

-10 1 .7938 

-20,6092 

- I 9 5 , * i 2 0 

-20,0763 

-109.3&27 

-20.0090 

-15 2 ,9 ? 78 

"" -2 0,9 29 7 

-|S*.2H29 

-20,5(8," 

'-159,2830 

-20.0001' 

-1*2.0502 

“ '-20.8354 “ 

-16H.56J0 

-170,3368 

-21.039® 

-23.0072 

., *6. 8395 

-21.2625 

-,68.9126 

-21.0977 

-172,5000 

-2, .9902 

-175.6386 

-22,9965 

- 1 00.7039- 

-23,5199 

-,82.9372 

-20 . d33^“ 

- 1 80.9730 

-20;5SO0 

- 1 88,7 380 

-25 .&008 

-192.20Q2 

-2*. 692D 

.195,7*0, 

-2718037 

-,99 , 3252 

-29,0’9, 

-203. l 155 

-3 d .0B2o 

-207.3355 

-32.0967 

-212.3259 

“ -33.86*9 

"" .215,295? 

-30,906 1 

-218,75, { 

-36.0552 

-222.9207 

— '-37.3008 

2 2 5 , 1 8 1 7 

-38,0028 ' 

-220,1*03 

-200,8071 

-38 , 7689 
.02.2630 

.23, ,3735 
-Z07.9Q22 

-39,5800 

-235.1097 

-0O,02 9 7 

-239.5339 

-0, ,3209 

-292.0722 

-91.79Q, 

-02.7030 

-25 1 .2873 

-03, 22S7" 

-255,0255 

-03, 7q56 

-2S9. ,300 

-00.1702 ' ' 

-263,6933 

-279,8765 

-00.4233 
-05,7 j *J5" 

.248 ,6*80 

-0510393 

-271,3127 

-05,2306 

-270.Q929 

-05.0080 

-276,9*38 

-05.5695 

-202. 9 25 | 

-05 . B386 

- 2® 6 , 0 362 

| I 6 

-289.2 1*7 . 

-9**0211 

-292.0303 

-06.07*9 

-295,6400 

.06, I 083 

.298,9082 

-06. J 100 

-302.T772 

-06,0909 

-305.3880 

-0* ,0055 

-308.5809 

-0S . 972? 

-311,6867 

-05,860*1 

-3 I 0, 7 1 , 6 

-••-05,7677 

-317.6598 

-05.6303 

~ -320.533* 

—-05.0797 — 

•-323.2856 ~ 

“‘-05.3 130 ' 

-32&.937B 

.05, 1310 

.320,0057 

-00 ' 9369 

-33Q.9092 

-00.73*3 

-333.2373 

-00.5239 

-335.0531 

-00,30*0 



- 337 i 5 W 

-00,0002 

.30 | ,0861 

-O3; 6289 

-305.0376 

-03. t 664 

"".3O0,2Si9 

-02.7Q03 

-35u,6S0 

-H2. 2075^^ 


-353,0129 

-0 1 ,7979 

-356.2207 

-01.3610 

-358.4316 

-O0.9337 

■ -360,0568 

— 0 0 . 5 1 8 7 

-3^0.0462 

.39.7270 


-367, 1342 

-38,9801 

-369.8310 

-38,29 j 6 

-372.2 1 30 

-37.6016 

” .370,3059'' 

-37.0328 

-378,0300 

-35.9 2l 7 


-30.1 , 1569 

-.30,9305 

.303.8827 

-34,0395 

-386,3 1 60 

-33.23 1 0 

-388,5371 

-32,0701 

-39 0,5888 

-31.8159 

; 

-39H,33 0 h 

-30**0* 6 

.397.7397 

-2915547 

-000-9259 

-28.6283 

-003.9582 

-27.7900 

.006.8038 

-27,0000 


-90 9 .73 0 6 

.2**361 B 

-012.5? |7 

-25,7365 

-015,2716 

-25,1*00 

-0 l 7 . 99oS 

-24.6290 

.020.6962 

-20,1319 


-4? 3 ,38oS 

-23,67 D 1 

-026.0650 

-23,2363 

-026,7016 

~ -22.8337 

” -031,018? 

-22,0539 

-034.p906 

-22,0966 

, 

-036,7700 

-21 , 9 6 D 0 

-039.0650 

-21,0036 

-002. t *09 

-21,1009 

.000 . a660 

-2 0 . fl 633 

-047.5790 

.20,5977 


-*150,3017 

.20,3073 

. 053.0307 

-20,1110 

■-05S,7784 

-19,8893 

-058,5320 

-1 9 , 68q6 

-06 1 ,2950 

-1 9,0806 

0 ! 

-060.Q702 

.19,3010 

-066. 853$ 

-19; | 293 

-0*9.6072 

-18,9692 

-072,0095 

- 18,8200 

-075.2590 

.18, 6826 


-078,0777 

- 1 ® . 5 555 

— 0 8 0 , 9 0 j 3 

-18.0391 

-083.7313 

-18,3328” 

-006.5650 

-18.2367 

-oQ?,oo3z 

-1 8, 1 S04 

: . 

-092,2453 

.18,0736 

-095.0871 

-18,0066 

-097,929? 

-17.9088 

-500.7723 

-17, 9000 

-503.6126 

. 1 7.0602 


«5'r)6. 0490 

-17,0292 

-509 . 2821 

-17, 8-06 7 

-512, i09 7 

-17,7920 

-Sio,93q9 

-17.7863 

-517,7040 

. 1 7 ,788 1 

■ 

-5?0,5488 

-17,7979 

-523,3042 

-17,8148 

-526, 1 206 

-17,8392 

-528.90)7 

-17,8707 

-53 1 ,6 625 

- 1 7.9089 


-530.0102 

-17,9537 

-537 . 1H4J 

- 1 8,0006 

-539 , 8637 

' -18,q620 

-542.5680 

-18. 12&3 

-545,7577 

-18. 1902 


— 5 o 7 , 9 3 l 2 

- 1 8, 2680 

-550,5067 

-18,3078 

-553,2299 

-18,0322 

.555.8503 

-10,521 l 

-558.0627 

- 1 8, 6 1 07 


-56 1 . 0S0 1 

-1 8,7 i 20 

-5 6 3,6296 

-18'8103 

-566, | 880 

-16,91 98- 

-S>6 8 , 7 3q5 

-19,0290 

-571,2567 

-19.1015 


-573,7677 

-19,2572 

-576,2626 

**19,3757 

-578.7027 

-19,097^ 

-581.2077 

-19,6209 

-583,^593 

-19,7072 


-5 R 6 , 09 7 2 

“ -19.6757 

.588,5216 

-20 - 0D6 1 

-59o,93H8 

-20, i365 

-593 # 3 300 

-20 , 2723 

.595,7235 

-20.4Q77 


-590,1 020 

-20,5005 

-600, 07 0 7 

-20,6823 

-602,8297 

-20.8212 

-60S, 1 6 0 0 

-20,9609 

-607,5220 

-21.1012 


-«O 9 ,059i 

-21.2022 

.612. 1870 

-2i‘3®30 

-6io,sibr 

-2i,5 2 09 

-6l6,028o 

— 2 l , 6 660 

-619, i 009 

.21 . 0080 


-62W0563 

’ -21.9090 

-623*7636 

-22,0903 

,0000 

.0000 

.0O00 

,0000 

,0000 

.0000 



open loop p o l E s in FFE 1 FFFFFn ' 

C zero' Order h 0 L D ‘ N E Gj_ E C T E D "i * Vs T A R “InoTC A T E F~h“^g n ITu DT^uTT s T D ^“U NTyY ~~t TR'cL E F 
( p L U 5 ""t N Die A T e S'^AG MI FjO E «fl T H T I'm rtf Otfj AN D”~TER >1 DtiU ED F ROM - 7 [JtfMTTN“TR ITNSFTR Tm"N^ 


HAGN I TUD e 







6.0 Program Listing 


6 



4000000^-200- 


'SA S(? i T A..F2///500 








3Cnpy R.a. ; 


■ 



FURpU R 002&~0S723-0B ‘ 25 

1 06- - 9 LOCKS -CO p I C O 

3USE F * » A • 


*T • f ♦ — 

FURPMR 0026-05/23“0fl : 25 


F03&-001 I 2 I * A 


element table 


NAME 

r*r t - 

ot t . 

I r'PRL 
I'-PRL 
-U- A.TjL 


VER 5 I ON 


TYPE 


date 


TIME 


ax. 


> 

ro 


A r- D 2 0 H 
APDZOH- 

a r t v a « 

_ „A F Tv AR. 
A f A I *j 

A(.A J M_ 

n ( Q 1 h 
— n t g i n - 
Mt AO^l 

Rt.A09.i- 

RV.AZ72 

B H A 2 7 2- 

Bt A39 1 
£ L : A 3 4 1 ., 

block 
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1 P R » P p, , P 1 ft H 1 Y E 5 N y (J , S T N 0 R 0 

RJUJ U-Lfi . M A X . - 


LOGICAL yESNyq I STMORL) 

-.CO.l; M ilN 7 If Erp 4 / v G .» P.p ♦ P p L T » G A I H » r, A I ri 1 5 0 1 ♦ Np H A S ^ » P ^ A S E { 5 0 ) 1 6 S y M 1 . 

I pSYH* NRLFR* NGRllUt.OD<IOl»RX‘iOl»D Y(4.1i)>, y£S RL 

-- LOpICAl -YESRL •• - 

CPmM0N''kEEp5/ ^UPFRk:«7TiZH»TD»N7T,2TvAL !5 0) , IThzT. yESZOH I BOTH * 
J Hi) D-I F V-j-QR-R I M.I. 


LOGICAL yES70H»b0TH,M0DIFy*GPRI nt 

C_OuMp > j/iC Er pA/. T l TLe 1 2o ) ,T I TLE 1 UQ I , T I TUE2 1 1 Ol-*T I T l*E 3 I 1 0 )-»H A ME 1 2i, 

1 C A RO ( 20 I .L AnE L ( 20 , 

REAL mane . - • 

COr''-lOM 7 ifFEpl l^sEl^l 1 0 0 0 1 »nIs* I 0 n 0 > n<D5*100D) »HSE1 gI j 0)', nEJgzT 

C 0 v t MO M 7 < E Ep 16 /s 1 Af;r ,< 00 f » N R c I- P L * ORp 0 LE » Mr 7 E r,- (i » N X B »NxN f nxR , 

I I Opr;; , , P V AR , »U0:1 ,PCpE ♦pr.AC fPSLOSII ♦ _ . 

2 yESmTx» 1 , ESRA.j,yESsRP» 0 EBUG»LFLT»yE 5 PCHiyE 5 KeP# 

3 Y.ESSRL jHOMNAL jNOTyET ... - - 

LOGICAL Y^SfiTxtyESRAiY.YESsRP* DEBUG »LFlT » Y ESpcH » y ES RLP # 

1 y £ S.SJ? L-lNUMNA L-^Mn Xy.EX — 


1 n 

2 0 
3 0 

— 4-0— 

-- 60 - 

Ra 

?0 

.1 Oo_ 

1 1 0 

J 2 0 
1 3 0 
1 ** 0 

1 Sq 

-1 6q- 

1 Bq 

i’u 

20.0 

2 1 D 
?20 
2 3 0 - 
24 0 
2 5 q 
2 6 u 
2 7 0 
2«0 

- 2 ? a 


29* LOGICAL NICPLT 

30 * .. cOh'H.Om /.PLT/ .PM I •M.ICPLT.HP » 1 Srt * 1 C T , T 3 60 , S34 q ,01 F 1 »0lF2 » ICk 

3 1 * C 

32* C INITIALIZE o»OGR A p 

33* C 

35 * CAlL RESET 

3 6* C . ..... ..... . . : - 


3 0 0 

3 in 
32 0 
.3 4 0 
35 o 
36q 


Doouno 

nnouao 

onuuuo 

ooonuQ— 

QnUOOO 
oouono 
on nun 1 
onuoo 1 
0 n n u u 1 
. QnODQ 1 . 
Onnuo l 
OpOUOl . 
0 0 0 u 0 1 
OnOQO 1 

aooao 1 
on 00 at— 
onoaoi 
onouo 1 
□ noun 1 
onoaoi 
ooouol 
. .OnCOO l .. 
OnU UO I 
umuo 1 

OnUUO J 
oooaai . 
oooooi 

-OoOOOl- 

ooouo 1 
onoao 1 
onnoo 1 
u 0 0 u 0 1 
onouo l 
unouo I 
0 n 0 n n 3 
oooun 3 


6-8 


0 0 J 2 1 
-001 2 4- 
0012* 
-OOl 
0 0 1 2 * 

. 00 1 SH- 
OD! 3 1 
-0013)— 
00)31 


37* 

3a*-- 

39 • 
~4f>*— 
*4 1 * 
42* _ 
M3* 
-4 4*- 
45* 


■ NP-U-T— T-H'E— NE-X-T— OA-T-A-c^Si 


- 10 C Oi. ' T - I t vUf. 

l^Rj TF<6,60Ql 
-6 00 - *■ iil' 


^RjTF46,60Q) 

>0 -FOM AT 1 ’I'.lnl /-).-,2-(-l 7. x . t .9H.l. »..*.) /4 -» | H <1 7 x ,2 ) -* * ♦ > , 9 0 X , -2 <-»■•* > / >, 

1 1 7 X » ?. i • • » ) » 2*+x » * The sampled data stArIlITy analysis program* 
— 2 2 3 r , ?(-*•» 1 / I 4 (-) ?X , 2< * * ’ 1 ,?Q X > / ) , 2 U 7 X y9 4 ( * • * » / ) J - - 

C A | L J NPlIT l ® 1 OrjD , f 2 000 >• 


3? o 

3eo 

39q 

MOO- 

M lQ 


000003 

000003 

000003 

- 000004 . 

000006 


00 | 34 

-4 6*— 

00)3) 

47* 

— .„.00l 3 l 

48* 

0013) 

49 • 

00 ) 32 

so ♦ 

0013? 

5 l * 

0013? - 

R 2 * 

0 0)3? 

53* 

. . 0 0)32 

5 4* 

00)3) 

5 5* 

-00 13 1 

. 56*. _ 

00136 

57* 

_g g | 3 7 

..SB* 

00)4) 

59* 


-comsTruct-the-cont-I-nuous- system - open-loop tran sf er - function-- 
C-AfL C SOlTF ( S 1 OOO ) - 


LOOP d N THE SAMPLING rATE 


N E 1 G ? T B 0 

4 F — t ♦ N 0 T-' N I C P L T J — G 0 - T 0 3 0 

0 1 r I * 0 


4 2fj 

OrOU 1 

43q 

onou l 

4 4 0 

0 n 0 0 1 


OnOO 1 


OOO G 1 

4? 0 

0000 1 

48o 

• - oooui 

49 0 

onou 1 


CioOOl 

5 1 0 

anno 1 

5 2q 

atinu 1 

S3 □ 

0 D 0 0 1 

54 0 

onoa 1 

55q 

0D0G2 


• 00141- 
00142 
•• 00 I M 1 
00)41 

00 .) H-i. 

00153 

-OOl 5 t 

00)52 

— 00)52 — 
D 0 t ^ 2 

_.00 1 5 i 

00)5! 

. 00151...... 

00)51 

.._0015) 

001 5 1 

—00 1 5.1 

00151 

— 00 |S5. — 
OOl 5 6 

_.00|57 


60 *~ 
M* 

6 2 * 
63* 

-&-4J 

65* 
-6 6 *- 
67* 
6 0*.. 
A 9 * 
_?'J ?_ 
7) • 

7 2* 
73* 
-7 4 •_ 
75* 

lb*. 
77* 
„7 8 *_ 
79* 
80 • 


0!f 2 ■ O -w 

I S.v “ □ 

JCT ** — 0 

T 3 6 0 3 -360. 

S 3 60 c - 36Q * 

NP ° 1 

4 


IThZT * 1 

-Z T » l T-V-Al-I I-! 

ZM b 1,0- td/zt 


.d.£T.£j5Lh-i m e— a c om es j ~ f.O-r-.-t.h £_ zXr a _. o ro e R— hth, d-d £v-i c-e- 
Lf OX. R.Q.TH i. —G O ,„t.O — 2 5 


570 
58 0 
5?o 
60 0 
6 1 0 
6 2q. 


000022 

000024 

-000025- 
000026 
-• 000027 
000030 
000032 
000033 
— 000036- 
000042 
000044 
0D0046 
000046 
000046 
.. On 00 4 6 


CONSTRUCT WITHOUT 2 e R0 OrdER Hf)LD» t HEN wITH zErO ORoER HOLD 
_r£J2F Dr I.R.A.RS F-QR-M-A-T-I 0J1— I hEn_W To UX5 J 


00)61 

8 ) * 


Y E S Z 0 h 

on 1 6 » 

82* 


iCL T .4_a._ 

00)61 

83* 


C A 1 . L AO 

... 00 1 6 I 

84 • 



CHL- C 5 

00 1 6 i 

85* 


C A |_ L ()H 

00)64 

_B 6 • 


IF l YF4 

0017 1 

87* 


yEs z oh 

, , nn | 7 i 

88 * 


■ ■■- 8 0 f H _fl — 

noi 7 » 

89 • 


IF < 1 . L 

- aoi 7 )' _ 

9 0*. 



GO TO.. 5 

00 1 7 1 

9 1 • 

C 


0 0)71 ... 

92* 

C - 


0017) 

9 3* 

c 

CONSTRUCT 


C A-t-L-C SMTR X 

CALL •) HA 34)1 SloOO ) 

IF- 1 YCSflYQ I • CALL- -nHA09 1 I ® tOnO) 
3 .TRUE. 


63g 

000046 

640 

00UU52 

6 5q 

000052 

6 6 q „ . 

• 000052 

6 7q 

000052 

6 8 0 

— 000052.. 

69 0 

000052 

7 0q . .. 

. 000054 

000056 


73 0 
-74 y. 

76 0 


1 .FALSE* 
■T-S.U.E*.. 


CALL DELZOH 


EITHER /; I T H OR rt I T h 0 ( j T ZERO ORDER H0 L {) 


7?0 

-8 0 - 0 - 
81 0 
82 y 

«3 n 

B4 0 
8 5 y 


00006 1 
000066 
000070 
000071 
OnOG 7 4 
000076 
000 101 
0001 06 
- 00010 ? 
ooo i n 
000120 
oon i 20 


C PERFORM 2-'i TRANSFORMATION ThE n nyoUIST 

2* continue 

I.£.-l££S 1 0 H -«-AidQ.i — 1 . EQ - i-J-J -C A j-j A r> RIO hUSlOUfll 

ca l l c ^ ’1 t R X 

CAa_L hUA .1 . 11 _L*1. U. Out - — 

IF lYrS')Y r J> CALU ia h AO? I ( S 1 Ooo > 

c 

„,C p RlNT. . 1 LIE.. SAmIM. E Q DATA 5 v S.TE.M-0 pE-N_LO Op__-POL£s_I H 

C 

5Q...CDaj.T-U4UE — 

CAl.L zEEPLS 

c 

-C— PJE^F-Qj4i4^i).gj.- N A L - V SIS 

c 

NOt-T-E-T- -TRUE* - ... - 

IF (YfciStfL* CALL aHA272( *l£jOn } 

C 


1 F-.i YE.SSRl J-.CALU-SRRL t * 1 OqQ ) 


■c end of analysis fo« t h e specified sampling rate 
x, : 

100 CONTINUE' 


C..-GENERaTF..SAmp.LE...RATE .root -LOCUS print AND PLOT 

c 

LE LYCSSjGLLJ — CAL I — SRRLP.R 

c 

C RETURN NOMINAL S - DOMAIN MATRIX 
CALL NOftMTX 


C 6 0- IQ- -I H E— S I APT OF. -I HE. JNCX J~ . C A s E „ 

C 

GO -TO .i 0- .... . 

C 


C AN F. R p 0 K A A S ENCOUNTERED 


lcno continue 
C.A.lL ERA OR : 


C SEARCH FOR THF KEY «VOp 0 AND RESTART 
t R | TE t o . AO 1 > 

Art S K I pp U'G DATA CAR^S UNTIL *£Y i«,OPO 

1010 fiEAOl5»Spn,£MO = 2ijno) CARD 



►OMGNOS-T-J-C- 

I 52* 

— 

\ 5H* 

- 1&5* 

1 Sfc* 

j 57 • — — 

158* 

j59. 

1 60* 

-J 6 1 • 

162 * 

— | 6 3 • 

1 & H » 

1 &&* 

. — J 67 * 

1 6 8 * 

169* 

1 7n • 

1 7 - | • 

172 * 

17 3* 

1 T\ • 

.... 17S* _ 

1 7 6* 

177 * 


500 FORMAT t ?nAn > 

A rHE—T-E-ST-r-OR-F^iiAtrl-Tyu-BETiPiEElN- N 0 N- JNTCgERS - MAY- -NOT- BE MEANINGFUL-*- “ 

IF ( CAKD ( I > ■MC.HkfV 1 GO To 1020 

o-) “ 

GO TO 10 ■ t - 

— 1-02 0 — COfiTI-fillF 1 — — “ 

wR I TC l *• , *07 > ,C ARC 

6 0 2-F-O p m A F- 1 - ? O X t 2 0 A *A l * ” 

GO TO 1010 

-€ _____ 

C 

-C --RR int-the- number of- p L oT -frames — — 

c 

-- -2000— CO«T I nue 

NX N “ 7 * N x N 

MM — ^-t+X-B-^-NX R — * — 8 ' 

IF 0’*T.LE»2 ) GO TO 3000 

—ftp j T-T 4 A* 6 0 3) N x W * N X 8 > N X B » N X T — — * 

.. _ .. t y / > i ^ , e- . 1 ^ , . . <- _ 


ftp , T~r t a., 60 3 > NXW tWXe tNXR .NXT — - — ■ 

>03 FORMAT*’ I * / / / 1 7 X • * p L 0 T T I MG INFORM ATI ON * // ' / ’lOx*l5*2x»*NYQU 
.... -.1 * / / 1 0 x » I 5 , 2 x ♦ * P 0 0 F PLOTS* /•/ I 0 X * ! 5, 2x » ’ROOT LC^uS PLOTS * / / 

Z2x , ’total frames on the ren s qn - lehner plot tape*) 


1 ST PLOTS 
10x*-l5* 


■ FNO-Or-PWOGRAM- 

-300-0- CONTINUE- 
STOP 

-E-No 


ENO OF COMPILATION! 


1 D J AGN 05 TICS. 


O- 



' r *■ i 


*. i: 


v if it* <t "ili' V li ^■4» **• ** 1 k 1 


I 


5 FOR »U 9 W‘ «P*-ArnoyOH- 

fr qir- ? E U &—0 5AZ’3VL7 ; ’9 i ~0 9. ? 2 5 £ 5 B:— II Z r-i J- — 


5 f- flVO'O'T T N E *!>D70 W Eftf RY p0 INT OOoO^t 


5 T o n * g E used: coot m ^Pnf’C ?_ 3 _* _ p a ta_ L pj ._ P h P D .! ?■- L -Pt ft N K.. cP m w u n • ?. > o o d d U a.. ... 

Jt_ O UMp W „PL_0 C K5.X — — - — — 

_ .1*003 K E EP.i _._OP0.D26_ _ 1 

('00* KEEP7 000712 

. poos ..-keepu oonn 3 i— ~ 1 


.EXTERNAL REFERENCES tpLoCK. NAMEI 
(?00 6 N E R R R * 

. ti 0 0 7 - NERR 3* • 


sYoraGf assignment i bloc* ♦ type» relative location* name) 


jCFi. 


f Dot 

(.'POO 

rno 5 
„u o o 3 _ 

Ii0o3 

_.U00 3- 

pQ D 3 

f'009 

J' 0 q 5 

...l-005_ 

nOO 5 

mOqB 


anoo93 inonL 
.onoooo l — 

00 0 0 2 3 LFLT 

„D 0 H O.D 2 HJLEJKJtL 

OflOOO* MXME 
OQOQI 1_HXMPP- — 
000020 M X W V 
00O7 D R NDGO.. — 
000002 NRCLPL 

.000007 N X R 

000013 PNQm 
Ppn2?6_RRQ __. .. 
000020 YESRArt 


0 001 0 00 0 17 


.onoo 
OOU 3 
.0110 1 
0 00 3 
.000 3- 
nno 3 
doom 
nru>S 
_0 QUJL 
000 s 
.000** 
noos 


. _Q D O D 0 2. 
o no o o o 

n.aaciij 

0 0 0 0 0 7 

QOUO 1.9 

onoo2 1 
.....00 070 4 i. 
n ri o n o 3 

1 0 u.0.2. LL 

anno 1 6 
n n o n u o 

L on oo 2 5 



000022 OEHUG 0009 

□ D oo I o lejpCN ooo 5 

oonoo 1 MxE lG 00 q 3 

-Q 0 Q.D.OJi tS-X-M ^0 F 0 0 0 3 - 

oona 1 o hxnFi ooa 3 

ooo a l 5 mxhSm ooo 3 . 

0000*2 MxpOLY 0000 

n o o 7 n <) nncOEF ....Ooo 5 

noon 0 9 H K 2 E H 0 OUD 5 

_□ 0 0 7 1 U._N Z ri 0 0 0 s>. 

noon I 2 p V A K 0 0 □ 9 

oauoou stage . oon & 

000026 YliSSRL 000 s 


R nOOSYo 
000011 
0011029 

0 0 U D 0.5. 

QOUO 1 1 

oouo 16 . 

I OOOOOl 

L 000027 

oonoos 

0 0 0 U 1 9 

r 000391 
L DOOO* 7 
L n 0 0 0 2 1 


FOpOL 

JOPEN 

MXE 1ST 

MX NX I 

M X N G 

MXNSP — - 
N 

N 0 H N A L — 
N X 8 

R CP. 1 

RIO 

YESMTx 

yessrp 


0009 
OOO 5 

0003 

.0C10 3_. 
ooo 3 
0(103 
0006 
aoos 
uno5 
0 Q 0 5. . 
0009 

Ooos 


000959 
I OOOOOl 
000023 
.._ .000025 
0000 I 2 
. 00001 7 

I 0 U 0 7 o ? 
L 000030 

oooon* 

000015 

000 I 1 3 

L UOO U 2 9 


OD101 

0010.,.. 

DO 1 0.3 
001 0 3 

oo i n*i 
0010*. 
DO]n‘. 

coma 

00 1 05 
00 105 
’00106 
„ao io 6. 

0 0 1 n » 

a o i o ■) 
com'. 
0 0 10 .<* 


I * 

3* 

9* 

5 * 
6* 

7 • 

_ 8 * . 

9* 

10 * 

1 1 • 
. 1 . 2 *. 
1.3* 
19* 
15* 
16* 


<;UnR0UTlNFAtl020Ht*l . _ _ . 

C o tr- ?1f)N / K E F p 1 / H A X J 1 1 M X EL!.<3 .» M x F R M ..MX 'IBM i M X N C.P F.« M X.NC.T » M X N E * M X NEQ i 

1 M X N p I , M X N G • M X W P H » 1 X N P P » M X N y p T t n X N S M t M X N S P * M X N T M ♦ 

2 M X N V i M X N Z T » M X p 0 L Y , K X E S T » M X E 1 G T » M \ N C V .. 

C On M nN^KEEP 77 R UN l 7 5 > »R I N < 7 5 1 »R <0 < 7 S 1 » R I 0 1 7 5 ) . F NP OL I 7 6 1 , 

\ jr 0 p n L t _ 7 6 )_ I. N 0 c> U I M D f, O.i N N C 0 F. F » N D r.Oj*- F • N ? N ,i N Z n 

COMMO N /<rrP t 6 /ST aGF »<OOe , ^f«CtpL ,uRPOLE ,nX 1 ' »M*N » N XR , 

1 * [_0pEN .JOPEN , PyAR .PCPL »PFAc »P5L0SH t . 

2 ” yESMTx »YESRA.> .YESsRP *OEBOG .LFLT »YESPCH »YESRLP * 

’ yESSRL i.NOMNAL .NOT.yET - 

Y ES M Tx«YfSRA«,YESsRp*OEBUG*LFLTiYESpCH»YESRLP» 
y LS..SC L * HO.M.'A A L , N n T v F.T. 


LOGICAL 


‘ado” ThE zERd order hold oFvlcC 



onoooo 

OpOOOD 

OOOOOQ 

aooooo 

OOPOOD 

onoooo . 
onoooo 
onoooo 
onnuon 
aooooo 
oooooo 
..onoooo- 
onoooo 
onoooo 
□noon a 
onLuno 


FNpnL 
KODE 
MXEST 
M X N C V - 
MXNPH 
M X N T M 
NDCOEF 
U 0 T Y E T 
N X N 
PF AC 
R IN 

YESPCH 


IF f NDGD. G E.MXeU> QO TO 10 0 0 

ND g O- • -NDGO-^- i 

R R 0 l N 0 G 0 > » 0*0 

f H -p'4 -VfrG - p") — a — 0-0 

00 10 I=M .NOCOEF 

M-« H -jCOFF- 1 — * — l 

10 FDnOL < <n + 1 > a FOPOLl N> 

-- FDfOL ( I 1 * 0 « 0 

NOcOEP " NOCOEF * 1 

* ■■ H 2-Q ** N ^ n + t ' ' 

REr JR N 


-C — eAw-NcyT . incorporatE-t-hE -zERO-Order- hold o^v Ice- 

c 

- — t-Q 0-0 — g-Q N T - 1 yy F ■ " 1 ■ ' " 

<0oE 2 

E N 0 


2 9 1 0 000000 

282q ~ -- OnOOO 1 * - 

000007 

— — ooaoi 1 

285 0 OQOO | 7 

2 8 6 q 000017 - ■ 

287q 000023 

• 00 00 30 

2 9*? o 00 0 031 

; 2900- '000039 

291q 000037 

— 29Z 0 ■ - -000037 

293o 000037 

. 29H 0 000037- 

2 9 5 q 0 n 0 0 3 7 * 

296 0 - 0 fi00 9 3 — 

29 7 0 00 00 H 3 

- 29 8 □ on 00 Hi 

2990 000072 



3F0R*UStV p • * F T V AR t F • Ap T v AR 
F D r . S 1 I X* 0 5 / 23 /. 7 ^ nDS;-Z 5 1 .S SL_ti^U 


subroutine aftvar en t ry point 000022 

STORAGE USED; CO D EM J_.Jl 0 .9. !X?Af_ J2 VTA. P.?. JlflS P 0.1.1 _B L. A N K__ C 0 M t» 0 N.< 2 > . 0 n Q 0 0 0. 

r O rt M .0 N_9.U P C 2 SJS.I. — — 1 — 

100 3 __...K.E E P_i A_Q-0.PJ.li — — 


E<TERMAL references ‘block, name) 


nerrrs 

.NERR35. 


“storage "assignment i B L o C < i TYPE, RELAY jVE lOCATjqN* NAME) 


000022 DEBUG OQOO 

.000*32 3 . LFL T 0.00 3 

00000*4 NRzERO Oon3 

000015 PF AC 000 3 . 

000017 yESmTx 0003 


oooooo tnjps 

. 00 DO 2 2 ,nqm N AL- 

00003S nxB 
000 0 1 P MOM 
0 000 2 R yESpCH 


0003 ooooio iopEn 
0 0 0 3 -L-. 0 o o o 3 0- N o T V E T— 
0 00 3 0 0 0 0 0 * N x N 

0003 .0000 1 * • P S L 0 S H 

0003 L 0 000 2 0 yES^Aw 


1003 -t.— 000020—' YX^-SJ 


OUO 3 OOOOll JOpEN 

. 000 3 000002- NRCLPL- 

000 3 000007 n *R 

00 0 3 --.0000 1 2 PVAR 
0003 L n 000 2 5 yESRLP 


0003 I OOOOOl KOOE 
0003 - ■ OODOO 3 NRPOLE 
0003 OOOalH PC PL 

0003 000000 STAGE 

0003 l DOOQ26 VESSEL 


050 1 o l 

) . 

"ooio* 

2. 

00 1 0.1. 

13 ? 

0010 j 

M • 

00103 

5* 

oa i oi 

6* 

0 o 1 0 H 

7 • 

0010) 

8* 

a o i q j. 

9 # 

0010 1 

10* 


0010’) 
00103 
0 0 l o V. 
0 0 1 p ■ > 

00 10 3 
0 0 10 > 

. ooiol 

001 n 

JOI.) i. 


SUBROUTINE - AF..TVARJ .. 

COMMON/KEEP I 6/sTAfiE, KODE’NRcLPL. nrpole. nrzEro.nxb.nxn.nxr, 

1 1.0R.F.rJ» JOP-E-N.P-v AR.pNO^., PCPL.I.P.F AC * p SLOSH * 

2 * yESmTX »YE5RAJ 1 YESs rp »DE0UG»LFlT»yE5PCH»YE5RlP» 

3 „ _ yESSRL *HO*iNAL ,NOTyET - f 

u o g ical YESMTX. YE.SRA*,YESSRP. debug. lflt.yespch.yesrlp. 

1 .Y.ESSRL.tNOMNAL.NoTyET 

c 

c RESTORE NOMINAL RAiV DA™ PARAMETER VAluES 
IF < .nQT«YE$RA.V> RETURN 

C ONLY t gE.M Er Ai mAT RI x n Ex l_N_T I In N ,.J S_-P-EJLrtI-T 1 .Eju_! JL I H JLS... vE R s LON- - 

c 

RETURN 1 

mo 


QOOOOO 

onoaon 

OnOOQU. 

oooooo 

aooooo 

onooao 

OOOOOO 
oooooo 
..Doaooo- 
onoona 
oooooo 
oooooo 
oooooo 
oooooo 
. .OOOOOO 
uononn 
onoooM 
orjoao* 
000025 


em; of compilation: 





aFO»*US# F« AgA 1 N»F* A 6 a in 
F 0 R - -<> EI K-05/23V 7-4 -O a {-? 6 Q— L2-, 3 > 


S-J3R0’JT1nE AGAIN EntRY POINT 00024m 


S T o fi A G E -US ED: _C.O CLE_Li_LJ3.n Q 2.S 3_{„ O A.tA.iJD . 0 a-DU 6.3 U-QLa N k_ G 0 M M 0 Nl2-L_00 00 3 3— 
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cnuMPN^KEEP> l/pN* < 2 251 *p02 ' ??S 1 , Mu -i z . LOC Hz iLDCDZ iNMCZ 17S). , MpC Z < .7.5 > 

CO mMOn^CPuH?/ pH A W AR »fi A 1 Ny » $H I FT * F R P < 1 Cl O 0) * K IF ( 1 OOO > • MPG » MPp » 

I . . t< S ll ] f T » X P i Y [1 1 4 > , U F L T A « M f, S Y M » M i> v. Y ft - • - - 

, C 0 14 P LEX pH A VAR 

4il^ M.O.AJ 2.C27 t< D-'iZ <;U.L6.Q > ^CJ.i FpK.Q»FpR.l.»FpR2 > f.KJU iFN-l-*F-K-2» pHO_»pR.L* pR24. 


I f<0»Rl ,R2 »r3,B,|J,NFPO,(ifpI »nFP2,N[ TER,NCT»NREG»MKOOE t 

J? tiS.TA.fi T.lNTl ME *.nE.sT .DONE if< F. S T K.T ic^MJ ' Ay To . rEqsEl 

COMPLEX CUiFpR0»f r pHI*FpRZ,rRn»FPt*FR2, F K0»PRl»pR2, 

-I - n 0 * v | , R 2 , R 3 t 0 , ij . . . - 

LOGICAL Ii0:4£ .RESTRT , Con Jf auto, RtQSEL 


J N IJ.lAL : I Z OR... S AhPLEd .DAT ft RPoL LOCUS 


HiyiKQl 

soo<a 


Soto 
5 0 2 [i 
^0^0 
-5of*0- 
So^u 
30&Q. 

StiBo 

sn’o 

-5l5o- 

5 1 6 n 
M7y 

5 I 00 


LSnRL B .TRUE* 

~RK-e- 1 O-N-l- l 1. ,..B . -LCU-«-l- r .T 

rEgIOu‘ 2) » < - 1 * . a • > 

rEg I dm i 3 ) -_?...( t , «0.T 

f E c, I 0 n < h > «= < 0 , . n , i 
... .IF <NuM?,FQ*CJ go to 2000 
URp s LOCPZ N U f ; i 

bi 52 & 


oo i h.i 

_D0 1 *4 Ci_ 
D 0 J H h 
0 0 1 H '• 
DO I va 
.GO 1 H{._ 

D 0 J V A 
00 I H 7 

0 0 1 S > 
.00151 


57* 

33*. 

59* 

An* 

6 I * 


IF t MOO I FY > URF c Up P * 1 

_UP£..2?.-U 

NPp a HXUPP + t 


2 * C g T A v T nr fi Aru ROOT LnrllS 

63* C 

’Qt.AG'UIST tC*„.._T.H E v T E 5 T...F OP. Eo'J.AlIIy... 13 E T W ^ ^ ^ „.mO NT. f HTEqERS .H AY—ilOT JiE. H E AN I NqFuL.* 


-52 Oq 
5210 
52^0 

5 27 q 
. 5 2.® 0. 
S2?u 


64 • 
.65*. 


IF (Pg*FO*MRLK> Go TO 200 
LGfl IN - B .TRUE* 


530o 


■ffirplOlL'P'D 

lOfiiQliCilHD 

•(DrtD'tl'Wd) 

.. OifmmiLKtDiP. . 
00013 03 
0 0 0 U 0 3 
onnooo 
unuuno 
onnooo 

..OnUL'QO_. 

onoooa 
..O0UUOO- 
o n ci o u n 
onuooo 
onnooo 
o notion. - 
onoci oo 
D DUO GO 

onnooo 

onuuoo 

000002 

-onouoH 

o n o u o 6 
onna 1 o 
onuo i 2 
on oo » h 
onoo ) b 

-4)00021- 

0O0022 

-onou27 

OOOU3I] 

a n n o 3 o 
000030 
—00 0 U 3 0 . 
000030 

onnu33 

000037 


0 0 152 
0015 3 

6 6* 
67* 

LPhASG ° .FALSE* 

AIITO a iTPIIF. 






53.10 — 

UO00H t 
000042 _ 

00151 

60* 

call getest 






• 5320 

onooH3 

0 0 { 5 r »_, 

6 V • • M 

pn |nD I TM S 1 i N g A I w 

J 





5 3 3q _ 

.... onoons . 

DO 1 An 

7 G * 

G A 1 N V B r, A 1 14 < I t h j 






5 3 H q 

000052 

DO t A 1 ’ 

7 1 * 

L PfiLE S * .FALSE* ... 



. „ . 

... . _ .. 


. - 

- - 

0n0U5H 

D 0 l A a 

72* 

N 0 1 • N A L = .FALSE* 







000055 

nnu t 

7 n * 

l2rfiO<; b . r m S F • ‘ 







000056 

001A-I a&nOStiC* 

THE TlST FOR FOCI a L 1 T Y 

BETWEEN qOu- T NTEGE«S 

m a y 

r|OT 

Be 

MEAN I NGFuL. 



0 0 1 A 1 

7 H • 

.. .... If ...I GA ! «V*EU • U , 0 > 

i poles* .true. ... ..... 

.. - 

. 


.. . . 


000057 

GO] bb * 

»0 I AgNDSTIC* 

The TksT for E q u A L 1 T y 

□ E T E E njON-T NTEgERS 

may 

not 

BE 

MEAN I NqFuL ■ 



. DO 1 6 A 

75* 

IF CoAlMy*Fq»t.01 

MO M UAL n *Tf}UE. 






... Q00063 

oo j 7 a* '< 

►diagnostic* 

ThE test for EquAL lT Y 

D E T rt E E N nON “I NTEqErS 

MAy 

NOT 

0 E 

MEANINGFUL* 



00 1 7 n 

7 A* 

IF (GftINV‘Fq.l73H5 

'l |7FROSa.Tfii|F. 






QpQUZJ — 

0 017 2 

77* 

NR c N R P 







000077 

0017 3 

7 R • 

]F tL2Er7T 5 ) M R » M R 7. 

..... . . 

. 



- * - 

- 

000101 

DO 1 75 

79* 

C A| l. RUT EG ( S 1 UijU J 







onn i o5 

0 0 1 7 •« i 

•diagnostic* 

THE Tfs T FOR C. } iiAi. I T y 

pF. TwEEig s, n N ■* I N T EgE W 5 

HAy 

mot 

BE 

MEAN I NgF uL • 



0 0 1 7 A 

8 n • 

IF < G A 1 f •* v . L q . 1 « 0 . 

A N D . Y E S s R L .AND. N 0 T y E T ) 

c a ll 

savRut 

5 39 g 

onn 1 1 a 





i i iHmiUIk* J uV *• i «!«.< i > +aV *•.•**•» ^w**. 1 * .At 


00|t7* 
.00176 
0 0 I 7 <1 
~no?rv4 



SAVE- -w 00 T-S—AS ~F. S x 1~M A T E S— T 0- N E A T ■ C A R E 


IF l I TH . Eq « Nr, A I N ) G o TO ZA 

DO— 2^-1“ ) , NE-IG - 

IF < <0 t I 1 . E ; l. 4 ) GO TO 25 

IF- < UA ,Gr .HXrS-i -* — r»*>- TO - 2 A 

M A a N A + I 

M N A-) — s ~f>f) 

?5 CONTINUE 

-26-C0nT InUE 

100 CDijT INUE 


SXA r4_ O F— P-U-A-S F— i W> T - - m € U S- 


2O0-f. Of.^T I HUE — - -■ ■ ' - - 

THE TfST FOR EgijALlTy B E T<aEEn mON** T NT^ERS rtAy NOT BE hEANIN G FuU* 
l-F-- ( pp *F_o*HBLK > - Go-- TO 400 

LGA in ° .false. 

trPfi A S £• ■ •=-- -.- T -R-ME-. 

lpoles * .false* 

l z mos - a - •FAtse* - — — -- 

AlJyOs .FALSE* 

ca l l getest 

D 0—3 n 0— I-T-H *4-»-N pH-A-RE : . 


540{j 
5 4 I o 
5 4 2 □ 
&43 0 - 
S44 0 
S45 0 - 

54 6y 

5H 

&4B 0 
-5 4 9 g~ 

S5D 0 
5 5 1 0 
SS2d 
553[) 
5 5H rj 
• SSSci- 
556 Q 
5 5 7 o 

S5Vy 


SHjFT * PHASER ITH) 

nqmN al- 5 *- .fal-Se; 


ic* ThE TF5T FO? e q -j Al I T v q E T ,v E E N M 0N-|NTE 6 ERS MAy NOT BE rtEANlN G FtjL ( 

IF l ShI FT . E-J.O *□.).. MOMNAL^-TrUE • — -- - 

C A t. L K U T c P ( 5 I 0 U 0 I 

lr» ThE Tr^T F_Q p E^ i iA i 1 .T. y -,-p E T jai£ t3l_ m 0 N t-N.T.E^ ERS- -«A.y— m3X_ 0£.-ME-AN-I N g F-uL j 
IF 1 ShIfT. Eij.O.O_, fl ND. Y EsSr,L •ANQ.'NOTyET) c A LL, SAVRUT 

J.eO -'CONTINUE. - 

400 CONTINUE 


O-EhlEft aXEL_.SjO 04- L OCU S_4>L-0X- 


56 I o 
5 6 2q 

563o 

56 H o 


570q 
• 5710 
57 3q 
5 7 4 q 
5 7 5o 
-5 7 6 0 . 
57 7 □ 


IC* THE test FOR EquAlITy flET*EF.N MON-INTEqERS may lot be MEANINGFUL* 

| F. ..t PpLT . NE *HOlK.)....c ALL RLPLoT - — - < 

RE T U R N 

— C 


ERROR IN ROOTING 


iO-CW-G O+jX-I-N U E- 


- 5?8 0 

S7V 0 

—59 0 a 
58 1 0 

■■ 5820 
503q 
„58 4q 


0025 S 
0025 i 
0 0 2 5 > 

3G254 
0 0 ?. 5 7 


CA L L SAvEsTI 2> 

-R F-TURN — I 


C MO l DOMAIN TRANSFER pu N cT!ON m A S nEEN STORED 
2000 COnTI nUE 


000 i iO 
onoi i o 

0001 1 o 

—aoOl-24- 
0 00 12 7' 
onfl 137- 
arm i 37 

onn t 43 
u n n i s a 

~ 000 1 5 4 - 
000 164 
000164 
000164 

- 001' 1 64 
000 1 64 

-000 164- 
000164 
000 164 

000164 - 
o no 1 6 7 
— 0 0 0 170- 

000172 

On 13 1 7 3 
0 n Ft l 7 4 
0 0 0 J 7 j 
000177 

- 000201- 
00020 * 
000210 

0002 1 1 
0002 1 5 

000220 
U0U235 
O o (.1 2 3 5 

- 0 0 U 2 3 5 
000235 

... 0002 35- 
000235 

- 000235 

000237 
0 0 D 2 4 3 

- 000245. 
000245 
000245 
000245 

- 000251 
00025 1 

- 000253 . 
0 n 0 2 5 3 
000253 
000251 
0 0 0 2 S 3 
000260 


ii lOI * -UP* 



kOde » in? 

--C-A t-U— 5 JLV E -S TXZ-J- 
RETURN 1 


end or compilation: 


9 'DIAGNOSTICS* 




1 9zfg 


3F0R*US F . BMAT^ t i F • fl H A34 | 

. .. F.OR. J E| x n.D 5/2 3 / 7_4 - 0 0 I . Zh i.36 


S'JBROUTInE 9h a 3 4 | En T RY P0f>)T 000261 

. . . 5.T..0.R A 0 E._ U S ED J. ..C Q DE LI > OlcD 2 7 Q..L..r) AXA.1 O.L JO n 0 i C l3.)_ 0 L a >1 k- C- 0 M m 0 U (2. > 0 0 r. n 0 0 • - 

ccusii o w - a lir oCics4 


000 3 KEEP 4 QO 0?6 3 

0004 KEEP5 000074 

-TOOS- - XEEP6 - -0 0 0,J 3 4 

")00 6 KEEP7 OOD712 

) J 0 7 K £ E P & 0 0 G 3 42 

3 3*0 Y E E P I 6 0 0 D n 3 1 

-. 3 3 1 I *E£P20. D00227 

1312 KEEP21 001 133 

JO 1 3 CRUD2 -00 1 ?. 1 5 

0 0 1 H CRUDH 000002 


-E<TERN a 'l.. REFERENCES- (raoCK.*._NAME» 

)0I6 PFEZro 

UU_Z u . a Dili 

) 0 2 0 N | 02* 

-102 1 — — -N 1 n3-E — 

13 2 2 N 1 0 l * 

- - 132 3 NERRHS 

1324 N E R R 3 * 


S r .0 R A ", c. ASS I S U H E NT. _ . < 9 L nc *. »__T4 El i_S E.L A.T.J V E.._lOc A L| ON * ... Ji A..M £ > 


oOo 1 . 

000 176 1 Q0£ 

_..a oo i . 

TOO 1 

0002Mn 2 OoOL 

noo i 

:i 0 0 0- 

000022. A.Ql-F 

—G-qGO- 

1 0 0 S 

no o 06 m card 

□ no3 

J OO 6 

000494 . FNPOL 

-0003. 

-I'JOO 

000072 INjp* 

on io 

0010 

t 000001.-K0CE- 

...0 0 0 5.. 


00 13 j 

3/700-4 

lOo6 1 
.. . J 0 0 3 
1012 
]00 3 

00 1 2 t 

3 0 0 Q l_ 0 0 000 0 _NZ Li?. OS. 

1013 000 3 1 q po 

uaooon p n . . 


001213 LOc N 

000003_4cauMX- 

00 1 7 f) t4 D G v 

00000 3 N G A I fJ 
000 7 oS fJNcz 
OOOJ53 jNRlfR-- 
0OO 7 n2 N U M z 


on l 2 
-0:10.6- 


i a 1 3 . 

13 10 
J 0 0 6 
100 4 


oooo i a pSlpsh 
000226. ;? R o ■■ 
000003 TO 


noon j 
.. QOU 3 
0 IJ 1 0 i 

-.oaio „ 
00 10 
.HOG 6.-4 
00 I 2 
-OHIO - 
non J 

,-Onu 6 
0 o 0 5 r 


0001 & 1 30L 
-09 Q.&2 7—&$ 

0 HO 1 6 6 0 D 

...0 00(10 4. <5 A.lM 

OOOo 1 /) IOPEN 
..000.1 1 0 LABEL-- 
0 0 0/03 L 0 C N Z 
-.0 0 0 7..0 C 0£F- 

'inn'nia m3 iff 

..0001*4 w G i? 

0 0 0 n 2 7 M 0 M f j A L 
„00 0u0.3 ..NRPO.LE- 
ononos N xb 

_ QO 0.7.X.Q — uz N 

000341 pOZ 
.. OnOn 1 3 PNOM 
Olio l 5 2 PSYM 

. □ 0 o n o i: hrn 

OTJrjOo TITLE 


000 1- 000.1 21 -1 7 C G 

0001 000222 3 0 0L 

Goon— --00004 1 — 6o3F 

ODln L 000022 DEaUG. 

0 00 L-L- - 0 0 o 0 7 3 . .a p r i N-T - 

nooa o o n g 6 7 , ThZT 

- 0010 L 000023 lf l T 

onoi* L 000072 MODIFY 

0 0 1.1 on I a 7 - 7 . M.^PF-R- 

00 1'. 0000 011 NE:,Z 

000 C I 000010 Si I :j c 
0010 L na'103« n 0T yet 

DO 1.0 0 00 00 4 .„Nr 2 c??Q- 

ooin 000006 N X N 

0 a 0 3-4—0 0 0 3.4 .1— Hz pOl-E- 

001^ 00 00 1 5 pfaC 

00 1 7 .. OOOOOO PU7 — 

nop no on 12 PVA i? 

. _ onoi oao?oo sx 

ooos 000024 title 1 


-0001- OOO 1 4 1 — 20l 

0001 000036 5l 

-OOO*?' — 0 0007-1-80 T44 

00 I 1 c 000000 E ST Z 

000 3 000l5L_ r ,SYM 

001 0 Cl o 0 0 I 1 JOPEN 
-00|3j001214 LOCO 

oono i'nona -0 7 n 

-00 1 2 no 1 0 ZfJ-wOCZ — 

0011 I 1103226 n£s t Z 
0006 ... .- no 37 06 ig (4 C 0 E f 
OOO 3 000066 NPHASE 
0000 I .000005. N TEST— 
0010 000007 n xr 

ooaoo.M_wzx 

DOOOOO PG 

oojoai pp 


.DOOM. 
OOO 3 
OOO 3 
oo n 6 
00 1 u 
oon5 


0 0 3 3 4 1 H I D 

r.OJuJO STAGE 

0 0 JU 3 6 T , tl e? 


- OOO 1 .0002 I 3 

oooo oaoo i i 

„_000 3 —OOO 2 1 2 

0006 000570 

0000 1 000002 
oooo i aoouoi 
00 12 I 00 0 7 o 4 

aros R oaoo62 
. 0nu6-.| - 0 0 3 7 o 5 
UO On | 000004 

0013 0 0 0 7 6 H 

Q010 000002 

.0013 i 001212 
0006 | 00O7U 

_i30 10— OOOO 1 4 
0003 000067 

0003 000002 

□ no a ooou3 

a n u u oooooo 

. uoos nuoo5a 


200L 

*0OF 

by 

fdpoL 


L0C0Z 

NAME 

NOGD 

nf 1 NAL 

N N c P E R 

NRCLPL 

NuMPOL 

NZD 

PCPL 

phase 

P P L T 
ft 1 N 

SUPEMK 

T 1 TlE 3 


3F0P.US ,F.RHA34l 

FOR. JElx -!W /. 2 3/ 7_4..» 0 0.: 26.: 3 A - t ? , 3 1 


5 1 3 R 0 U T I *>J E SH A 34 1 EMy** POjWT D0 q26i 


5.T.QR AGE-USED ...CODE.L.U — Dn.0 27.QJ._f) AT A.t.Q.*..„.Q n.Q 1.0.3 J-Q L A MK— C-OMM QtU-Zl_0 □ DO 0(3 

CO M H^N- Q-t-OX leg : ! 

3003 _ ..K£EPR_..0D02.63— ____ _ 

1004 KEEPS 0D007H 

300 5- - X E E P A -- 0 0 0. | 3 4__ „„ 

1006 <EEP7 00071 2 

) 007 x-E E P 0 OC 034 2 

TO 1 0 KEEP 1 6 0000 3 1 

: 30M . KEEP20.-000227 

0 0 l 2 KEEP21 001133 

1014 CRUD4 0 DODO 2 


E < TERN «L- references... < aLOC-K^-NAmEI 


13 1 5 -- PFE- 

3 □ 1 & PFEZRO 

3.3-1 7 JJnvQ.US._l 

■JD2Q N 1 0 2 S 

.1021 M I 03s 

Oi 3 0 2 2 N 1 0 1 s 

1023 MERR4S 

1024 NERR3S 



sLOraIc .assignment j 3 LnC K »_ ..tx P_£. »_a e l a..t.t v o c a Li o n» n a •* e. i 


-JOoI OOOl 7i_. IQq l ODOl flOOZ?.!.. 

ipoi Q00240 2 oool oooi onDi & i 

--1Q 0 0 no 00-22 — 6c l-P DQUO Q.Q a*2Z_ 

•)OoS DO 00 6 4 CARO OqQ 3 000(66 

,3 3 Q 6 0 OQ 4 5 *t.. F N p. 0l 0 0 0.3 □ DO fl 0.1.. 

no oo 000072 iNjp* nnio onaoio 

-0010 , D 000 3 1 ..K.O D E- ....Do 0^ _. .. 00 0 1 .1 0 

3013 1 001213 LOCO 0012 t 0 <} 0 7 0 3 

_ia oo_i.._o a o o o 3_.ii c cut mx c a a 6 o n 0 . 7 . 0 7_ 

1 0 0 s I 0 0 T 7 n 4 M 0 G k. n n 00 | 100006 

. . J 0 0 3 000003 NGA IN QUO 3 000 1 5j * 

1012 OOO^nS « W CZ 00 10 L 0 0 0 0 2 7 

_30 n 3 000153 J'Irlf.r Do.io.__.J3oaaa.a.. 

1012 f O0O?n2 NUM 7 0010 000005 

_Q.2H Q.. ..I 0.0 0 0.0 □ JiZ Er.O.S 

1013 0003l 0 PO 0012 0003^1 

- ooooon p m a . ooio „anooi3 

0 U o 1 1 6 p s L n s H noil ' 0 0 0 1 5 2 

ojn 2?6 j R0 .... onus . o no air: 

* oooo n 3 m n-mS ,inou ,J o 


1000L- 

30L 

-6-0 2- F. - 


X3Q0 1- 


DO 

G A I M .... 

I OPEN 
LABEL 
L OCNZ 


000.1 2 1 — 1 7_q 5 _ . 

000222 3qql 

— oaaoM i— < 

L no 0 0 22 0 E 9 0 G 


000 1 

noon- 

0 0 1 n 

0 00 1— L— 00007 3-Gpr 1 Mt. 

OnO't ' OOOO 6 7 ITrtZT 

OolO L- 000023. LFlT -- 

000*1 L 000072 MOolpY 

— .a o 1-3. no La7.7_.M. t> gp E.R- 

noi'i noon cm me., l 

OOOC ..I nQOO 1 0. . N 1 yc ... 

oni'i l nnoo 3 o motvet 


IQ l 3 
1 □ 1 0 
)0 q6 
1 0 0 4 


u-nco-EE 
m o r f r 
mgr 

m 0 H N A L 

NS POLE oo 1 a 0QOQ.D4..n^ z crO 

N X 9 001^ 000006 NXN 

..-1.--G-0 0-lH.l . Mg rQL-E 

po z oa 1 « oooo is pp A c 

PNOM n 0 1 2 . . .0 0 0 0 0 0 P h 7 

pSym lain n 0 0 ii l 2 p v A r 

hum . . no 0.1 0 3020 0 R X 

TITLE nnos 0 G 0 Q 2 4 TlT ,_ £ l 


-OQOl n00t4l_-20L-- Oooi 0002l3 2ool 

0001 000036 5l OOOO OOOOJl *OOF 

0 004- 0 0 0 0 7 -1—0 O TH ^003 00021 2 -Br - - 

00 1 I c DOOOOO ESTZ 0006 000570 FopOL 

0003 .....000 l5.U G SYN. OOOO I 000002 I 

OUlO oO 00 M JOPEN OOOO 1 OOOOOt K 

-00 1 3 -I no 1 2 15 LOCO 0012 1 OQO 7 0 H LOCDZ 

oooo j n 0 a 0 0 7 N upos r 000062 name 

_0G 1 2 r.o 1 0 2q — NOC Z — Or)(j6-l.-Oao7oS NqgO 

00 11 I 0 01226 N E s T z UDOO 1 0 0 001)4 npinal 

QUO 6 . — OQ 3 7 04 N M C 0 E p 0013 00076 4 NNCptR 

0 0 0 3 000066 NPHASE OQlO 000002 NRCLPl. 

odoo i aaooos. ntest d 0 i3 i 001212 numpol 

0010 000007 nxr 0006 | 000711 NZD 

..□004. OOOOQ.1_U.ZI Qo 10 -OOOO 14. PCPL 

aon3 oonooo pg ooo3 oooo67 phase 

0003...... OOJOOl PP 0003 000002 pp L T 

0006 003341 RI 0 0f)(J6 00111 3 RJn 

0 0 10 r. 0 J U ■) a STAGE Jniju 0 J 1 0 0 1 SUPEHK 

OOnS nlJ036 TITLE 2 0 (? J 5 OOGDSo TITlE 3 



j Q 1 6 L 00001 7 yesmTX 0010 L 0000 2 H y ESp C H ' Oo’i n L "oOO 0 *0 US«A « 0003 I 000262 yESRL 0010 L 000025 YESRLP 

JO ) Q l Q00026 YES^RI Q.Q.JU .-1 OQD.Q.? l—jf.ESSRP UQl.u. L OOQOOl-YgsZM QOO 4— nO JO 7 Q..Y ESZ.Oh • - 000 4 - - OOOOo2 ZM 

1007 R 000226 ZMAS 0n07 c OQOODO zPOLE OOO't S OOOOOl ZT OOQH OOCIDOS zTvAL 



00 1 0.1 

1 • 

S jo R 0 ij.T_I.uf 3 H . 

001 rn 

2* 

CO,.MOM7*ee p 4/ 

0010 1 . __ 

._ . 3*. .... 

1 

a o ] n i 

H • 

LOGICAL 

a o i n * 

5* 

CQujaO.fi/xxEaS/. 

0 0 1 n 

6 • 

1 

o a i n 5 

7* 

L 0 g .1 CAL _ 

00 I o 7 

R • 

C 0 n M 0 N ^ K F F P 6 / 

DO 107 _ 

9* 

I— - 

DO 1 ! 1 

i a* 

RE aL 

00 1 1 l 

ii* 

f.a.7 / 

00 1 U 

1 2 • 

1 


psym ,n r lfr . m^r uo > , dd n o J ,Rx< i o > ,by < h , i oi , y £ srl 

yFS»l 


MODIFYiSPRINT 
. Y £ S 7 0 H • il 0 T_ H i M o 0 1 F.y * G P R I N T 


M A MF 


00112 
00 I J 1 
0 0 I 1 4 
00 1 14 
0011 » 


13*. 
1 4 • 
15* 
16* 
IT* 


FDpol * 761 » N 0 Ci m i N D ^ 0 , M N C G £ F *flDCC)EFiNZNiNZo 

.-CD.' l ,MC l .xj/K|rfpa / . ZPOi.f J 75 1 , ZrtAr, 1 75 >-,N ZPOLE — 

C 0 -• P L E X . ZPOt.E 

COMrtO.*j'iCEEpl4/sTAr,E;,KODE»NK<:LpL.N , ?pOLE»NR3rERO.NXB»NxN*Nxk,— 

1 l0prN f jop'ER|PvAR»pNOM,pCPL«PFAc»PSLQ5Ht 

2 ,y_£S i:.T X ,-Y-ES.P Au_,.Y £S* R£.j-Q EBUG t L F-L T-*-Y ESP-C-H., y £SRl-P-*- 



0011 1 
00 It 1 

1 4* 

1 9 * 

cn 

i 

0 0115 

20* 

00116 

2 1 * 

bo ’ 
co 

00117. 

22* 

.,00 J ? 1 

_ 23* ; 


30171 

24* 


,_00l 2 1 

__ 25 * 


0012? 

26* 


00121 .... 

27* 


’ D012T 

2 4* 


__QD 1 2J 

29* _ 


00 1 2 1 

30* 


J.AG.I.CAL. 


yE5srL*NOMNAL , N 0 T y E T 

„Y E 5 m T X. » Y E 5 ^ A ri . Y ES.sR ? , 0 EBU.G I LF-L-Tj.Y ESPCH » yESRLP *• 

l yE5^ia'l' J 0- , ^AL,NnTYET 

C Op. ^ 0 N ^ X E EP 20/ E S T 7 t 7 5 1 | N E s T 7 \ ... 

COMPLEX f. 3 T 7 

jZ. 1 e:eP_ 2. i /. fJi ? i ??s j .poz t ??5 uj<y*iz t .LPCi>iz.,Loct>z , nu.Cz lzs.j^.ndczizs-). 

C 0 ••. H 0 »>i / C P U D 2 / prlN| 700) ,pD (3 n 0) , nNCpER ( 7S) , Noc P E R ( 7 5 ) ♦ 

J .fiUMPDL iLOCN ,l_oCD- — — 

C0(.-H0fi7CPU0H/ nEGz,yEsZ* 

LOglCAl .Y.ESzm — — — - 


.59 6 o 

59 7g 
598 0 
599 0 

-A 0 0.0- 

60 lo 
. 6o3o 

6dHq 

60 5g 
4q6q 
6 0 7 0- 
60^0 
6 IOq 

613a 

61 hq 
_6 1 5.0- 

6 1 6 a 

6 1 7 □ 

618a 


C e»RlNT HEADINGS PRI°M TO THE Z"R TRANSFORMATION 


0012 1 
0012 1 
0 0 1 7 » 
0013 1 
.00 1 3 t. 
0 0 13 I 
00 J 3 > 
00 ! H > 
DO i m l 
00 1 MS 
_0D 1 H S 
oo m ■, 
n o i m '■> 

? 0 l *1 . 
0 0 1 H ’> 
COlH. 
ron? 
oo i 

no i m 7 

00 147 


3 1 • 

32* 
31* 
34 • 

3 4 •_ 
36* 
37* 
3«* 

„ 3 ’ •_ 
MO* 
HI * 

4 2 * 

H 3* 

4 4* 

4 5* 

4 6 * 
H 7 • 

4 a * 

4 9 • 

50* 


IF I.NOT.gpRINtI GO t 0 5 

:Rj TE t 6,60 0 i - - 

600 fOrmAT* ’ 1 ‘ i'Mx, *2 - R TRANSFOR. MAT|ON*» 
J.F LXf S.Z.0.H.1 . 1 T.UA.».6u LL. i 


6 n 1 F 0 r? M A T t / r » 0 X , • ( z E R 0 OR 0 E R M 0 1 0 > * ) 

_. R i TE (.6 ,60 2 1 TITLE, TO, ZT. . 

602 FORMAT ‘ // 72QX .20AH//35X ,* T a » • , t P£ [ 2 . 5 » 3 0 X , » T « *,£12,5///) * 

TflT FORMAT l * n° ROOT * • 3 1 * • * R ES I DUE FOLLOWED BY COEFFICIENTS 

* 1,. OFSrFM nlNG OR pF R * / 2 1 ^ * RE At,-JL.LLX.JLIlLAGjjit.AiLT.tZ£j 


5 CONTINUE 

TEST ThE cOMTfMuOijS 5 yS t EM OpE M LOnP TRANSFER FijNcTION 
JF llu&Q., L.E •''!!) C,!!. 1 . f,0. TO .1.00 d... 

r>E ter i .nf The NnMr.Ea nr z E r0 p olEs in the pakti a l fraction Expansion 


’6 2 a o 

622a 
623 0 
6 2 H q 

-6 2 s q . 

6 2 6q 
6 2 7q . 
6 2 8 Q 
629q 

6 3 Do 
..6 3 1 0 
632a 
6 3 3 q . 

63 Hq 
635q 
6 3 6 o 

_6 3 7q. 

638o 
63?a 
6 4 00 

64 1 0 
6 4 2 ij 
6 4 3 a 
6 4-4 q 
6 4 5 a 
6 4 6a 


OOOOOD - 

onoaoo 

000000 

000000 

..onoaoo— 

onoooo 
onoaoo _ 
oocao J 
onoooo 
oooooa . 
-000000- 
onoaoo 
onoaoo 
onnooa 

onoooo 
onoaoo 
.onoooo .. 
onauoD 
uooaoo 
onoooo 
o o o a n a 
onoooo 
. o o u a o o 
onoaoo 
-000000 
oooooa 
onoooo 
oooooo 
-oooaua.- 
oooooo 
oooooo 
oooooo 
onaon I 
onnua6 
. unna;i6_. 
o n o o l 5 
O0U015 
000030 
O0U03O 
0 POO 3 6 
-Do 0.0 3 6;. 
OnOO 36 
000036 
onno 3 6 
OnOO 3 6 
Ont-036 

.. u o a a 3 6 . 
on no 36 

onoo3 6 
0000 36 



— H-Z e R 0 5- - a ~-W'Z o— • N Z M — 

IF <NZERns.LT*0 J nZER0S*0 

pF — < < , L r » -n-S-r£-f- r 3 — r A :■! P - . - ¥ c-S Z a H -^ 


-O-R- 


f M Z £ » O S * G T . 2 . A tj D • • N 0 T , Y E S z 0 H > ) 

C —ft E T £ 'R tT l N £ — T-h F- OpEn- i. nOf» - POLES' -I N — T>.E- 2 
C 

trZ' pt?(:t - " a — f ? 

U E S T Z = [) 

: IF-„CqpTH ) f,0 - To- 2ft 

K e MZD - fl Z M 

— . — | F — ( Y. E S7nw 

IF l K.LF.O] 


GO TO 

DOM a I N 


2 dOO 
ATI . I 


6H 7 0 
640a- 
A*»9 0 
-&50Q' 
651 Q 
6S2 0 
a s 3 n 

6 5 4 ,j 

6SS 0 
6 S' 60 - 


GO TO 2D 

Cl- — — 1 - 1 * *-4- -,-K . . 

tlZpOLF = MZPOLE * I 

■ZPftL F ( N Zft 01 £4- *— 1 1 •. 0 rO ♦ 0 * 

ZMaO <N Z ^ Ot_ P" 1 B 1*0 

HE^ T7 = mfstZ * -4 

EStZ(nESTZ> " t 1 • , n • > 


65 7 q 
65 6 □ 
659 0 
6 A Oq 
-A A 1 0- 
6 6 2 0 


0020 I 

00 20 1 

0020 3 

0 0 2 0 1 

0020 1 
DO 2 OH 


4-Q — C 0t,-T l-NUE- 
20 COliTlMUE 


C 

c l-N-I- 7 I-A-L I Z'E F 04— T H E - Z - R - TR A NSF-OpH A T-pO^ 

C 


-Y-E-s-Z-H- 


-rF-A l r^g-*- 



..00222. 


...9 2 * 


002?? 

9 3 * 

.DQ22 3 

.. . 9 4*. 

0 0 2 7? 

9 5* 

002 2? 

9 6*.. 

p 0 2 ? 3 

97* 

. Du 2?? 

9A* 

0022? 

99* 

no?? 1 

too*.. 

00225 

101 • 

Q.D 2 2 6 

in 2 •_ 

00226 

103* 

0 0 2 2 6 .... 

. .104* 

0 0 2 2 6 

1 05* 

0 0 2 2 1 .. 

-106* 

002 30 

107* 


IF 1 . ft 0 T . y F 5 7 0 H 1 GO To 30 

j E__.l.,.K.0.7 i Yg SGI — *AUD, - * N 0 t • -^fr S-SR L..J— 6 0 --T-0 — 3{j- 
YEsZM a .TRUE* 

.YO.. c nf ; T I kuiE , — ■ 

N U 1 ' P Cl l. * 0 

L 0 C D 85 0 

L 0 C N Z * 0 

EOfDZ 0 - — 

nCoOnt “ K' 2 E R 0 S ♦ l 

Ug 4 .NL.A 1 a- NQ GO ■ , n» . N;? p * NZEAD-s 

ntf.st o nfimal ** NZEROS ♦ 1 

-ft 0 J F F— -* _ii 0 G 0— « -MF I N A L — 

ft c I 


, . . rv -At-tu TJL Lu f._e.a R..T-UL- A C-T 1 0 fi-i? JLp.A iiS-L^V-C F__Lh£._t-R ANSF Cr fu M-C-T-J-qN- 

COMPETE T H r RESIDUE rtf ThE m ..T h POl. £ TMfM AppLy Z-R TRANSFORMATION 
_ ptRFOfrii- T HE z-rL..TR ANSfrQRMAT. I ON ... .. . .„. . — 


4 n □- c 0 tv-f-i tl-U E ;• — — 

■ NlftC ■ 1 

. JX-XAU-Gtt-W-XC-S-I-l — E ft . T O 2 .Q I3 . 


A N()fl ZErO ROOT 

c A I L P F F ( N . l i I N c • t. r J N A L 1 


-AA&0 - 
6660 
6 A 7 0 

6A«0 

6 6 9 0 
670 0 
-4 74 q — 
672 0 
-673 0 
675 0 

6 7 6q 

6 7 7 0 
- 6 7 0 0 - 

6 7 V 0 


6fl 1 Q 

-A82 0 - 
60 3q 
-684 0 
6850 

68 6o 

6 a 7 0 

-6aeo-.. 

63*0 
6 9 D (J 
691 0 
-692q 
6?3q 
-6 95 0 - 
6 9 6 o 
6 9 7 0 
690q 

6 9 9 0 

7 OD(j 


000036 

■ 000044 

000046 
—000053 
000053 
OpfMJ 5 3 
000053 
000053 

000 OS 3 
— OnOU76 
00 00 7 7 

- 000 100 
000102 

■ -ono 1 0 4 

000 1 l 1 

-000 1 15- 
000 1 2 1 
000125 
OnU I 27 

- QQU 1 3 1 
00013& 

- 0001 4 I- 
000 1 4 I 

• 000 1 4 l 

uon 1 4 1 
ono 1 4 I 
con 1 4 1 

- 0 0 0 14 1- 
000141 
000143 

0 0 n 1 4 6 
000 1 5 l 
U n 0 1 5 1 

- 000151 
000 1 52 

■ 000153 
DOO 154 
□ OCI 1 55 
000 156 

-4)00 1 6 1- 
OOD 1 65 
OOO 1 70 
000 173 
000 173 
000173 

- 000173 
OPO 1 7 3 
00(1 1 7 3 

000 l 7 3 
-- ono 176 

000 176 

- 0001 7 7 
000 177 

000 1 7 7 
000 1 7 7 
onni 77 

IlnfiVOU 



-C. 

c 


6 0 TO 3 0 n 


0023 J 

002 3 L 
0023 J 


1 0 9 

1 10 * 



JJ U Z3-L_ 
0023 l 

U LA- 

11 2* 

C A Z-E E_o— apO-T — 

C 


0023? 

.113* 

- .. 2D Q .rtlK;T l till F 


002 3 3 

U 4* 

C^Lt PF^ROlSlnOO.N.NcOUNTti, zeros. NO 1FF> 


00 2 3? 

. ... 119* 

c 


0 0 2 3 3 

116* 

c 


00233 

117* 

r ^ £ 1 F r- t fj r if T pn| F TO rfjU^inFR 


0 0 2 3 3 

MS* 

C 


_Q023« 

...„1 !?• 

300 rn.h41wuf 


0023S 

1 ?0 * 

N B ’1 * I'lMC 



00 2 3 *■ 

1 2 1 * 

I F—J. M • L E • NF I N A L )- QO .To -lOU — 


002 36 

1 22 * 

c • 


.002 3 6. 

... J 2 3 *. 

r 


DO ? 3 (• 

12 4* 

C END OF 2 - R T >i A N S F 0 R N A T I 0 N 


0 02 31' 

12 9* 

C 


00 r 

1 ?A* 

RETURN 

. 

00 2 '* i: 

127* 

. _.c ... ... _ _ 


00 2 4 D 

120* 

c 


00240 

1 2 9 * 

C PRRnR IN l-Q T fi A N S F 0 o M A T t fl N 


0 0 2 4 r 

1 30* 

C 

- ... 

DQ2«,L 

... 131* 

1.0 no -CQnT-INUE : 


o o 2 ** r 

132* 

return 1 

- . . 

oo2n 

133* 

c — - ■ ... 


CI02H2 

l 3M • 

c 


0 0 2 4? 

135* 

_ . T 0 Q . M a N Y 7Erjo pf>iES J *} TpE PARjIal FRAC Tln ^-EJ 


00 24? 

136* 

c • 

cn 

00243 

.. . 137* 

2nn0 rnr.T I muf 


0024** 

130* 

KOoE “ 4 

o 

0 D 2 4 & 

139* 

n E T u R N 1 ..... 


00 ?*< 

1 40* 

EN[) . 



END OF 

compilation: no diagnostics* 








' 





iV* - *' 


*1 Vll V 9 fc. 'il > ' ' 


^rrOR;*,^^ ej-*.(|,l + !7iC<'t «,fr ^S>tfc ?;(f * 

- --W» ^l 1 ^,V/2>V/3>‘fc'*ID t »^7r}0 t ^_4.% T S.^ ...... — 

ailing ft -OhA-tA 

“ —STORAGE . USCD. 1 _CD.de U.L_ar^maO.L_ 5 ^-X 4 .LQ.L_ n.nOOOO- 1 — aJLftN.K _ common t 2.1-0-000&0-.. 

LI) M M a N _ R i QlC K s * 

U03 KfcCE-2 OCOgJtJ - l 

rno*» k.efp 6 ooo 1 34 

r-Oo5-- k eep i a --noon 3-1 — — 

no6 KEEP15 OOD260 

r-Jo7- keepu oaoo3i 


STORA-Jc ASSIGN mEMT {BLOCK* TypE* RELATIVE LOCATION* NAME) 


P004 000064 CARO 0 0 U 6 r 0001 U cPSLOL 0006 R 000024 DA 0006 r OOlll^O DCBLB L 0007 L 000022 DEBUG 

. - 0005 R n0002&-OEr, 7)006 -R_onn ) 3 l~.fjEGl.BL 000 V- 0- 0001)02. p H F 1 LT OOf) 5 R 00001 2 00 -■•• OQOS R 0U0013 Dl 

raos r noooiH o ? ooob r aooois q3 ooos n nnnqi6 bs oon5 c oouoio fiften anas h n u o ui 7 fifty 

P-Qgfc 000-1 R6 FM A T OHO-1-^2— F-Ml OOO^-C -QfiOOOl- F-O-y-R O0O**~ ftOO l 6 000^ 000 1*3 F7 

t Oa3 q 0 QOQ 3 7 H A c C Or)l)S c OOOOOO HALF 0003 R 000025 H A 5 T OOfl 3 R 000035 HATT Q0(]3 0 OODOOU HblaNk 

r003- R .OOOOO'i-HBLK 0 m^-R—OnUO^ 4 .. H rCtf- 0 003 - i?-~00 0 J 33-1^.., OOo3-r O0J032- hdEC- — U003 R 000027 HOOT 

U ') 0 3 R 0 0 0 0 0 6 h E S T I n a 1 ) 3 r On 0 ij 4 3 H r G 0 o 0 0 3 R n n O 0 4 4 H r - m 0 0 O 3 R n 0 : 1 0 4 0 H F p 0 0 0 0 3 R 0 (1 0 0 H 5 H F p D D 

r- 0 0 3. R 0000*12 HFP&N 0003 R.-OnU 0 4 1. H p pm 0003 R OOUtltO MGE^E -00n3-p n 0 : ' 0 -3 1 hINC 0003 h 000005 H k F y 

P003 r OllOOl 7 h^ATH 00U3 p 0nl(|l4 H fj C -V 000) R 000046 0003 r nOOol5 H N Y QU 0003 R 000023 ho 

0.9.0 3 — R — U □ 9 12 6. O.Q.;X3._4_a XiH ( .u3 6 _ h r.axE p 0 0 3— R-0 0 U 0 1 J— hj A-t* — Q 0 q 3 -ft- 0 0 0 a 1 2 - H R E T A U 0 0 3 - N 0000 l 7 H 4 0 1_ L 

MOo 3 R 000016 HROOT OOU3 p 0000 l 3 hSYaN 0003 R 0OO0 3 0.H5lAR 0 !)o3 r C|0002{) HS»C 0003 R 000021 HS2. 

{.'003 R- 0Q0a22.-HS4q Q00 3 _.r_j3000 2 -.'L.-hX 0006— t— 000 1 OO— | Dr1 0006-J oooio?.. -IOG Ul)07 noouio I 0 P£N 

00q7 000011 jOp£N 0007 OaonUl K 00E 0004 OOUMo LA^Fl 0006 I 000164 LA0EL1 0006 I 000210 L A bel 2 

— — j ^ 0006. I -OO023H . LABEL-i 0007 L -jOnao23- t FLT 0004-R - 0000*2 Name — 0007 |_— 0 0 0 0 2 7. NO ft N A L - 0 00 7 u 000030 NO T r E T 

do pO 0 7 000002 NRCLPL 0007 0(j0n03 mrpqlE OOQ? 000004 N» z ERO 00D7 j 0(30005 rxb UnO? J (lQOOO* N x N 

TT? ;iO07 I -U00an7- MX R gpO 1- [— O :jO ;j 2 6....q l OOOSi — f_7)0002.7. El 0 0 5 - | --0000 3 Q - N 3 U00& C 000002 ONE 

* ■ o o 7 00)0 14 pc pl ’ nn0 7 onoois pfac nno^ i ooodZii pi nous R ndjozi piz 0007 oooui3 pnom ' 

0 0 0 7 . .. 000016 PSLOSH..^..— 0007. 0 0 D .1 2 .p\fAf? . 0006 A- nil 0 0 3 4 P 36 ..... OOpS R 001024 RAdOEg 0006 C OOOOOO REGION 

1006 q 00003 q Rip 000'’ r OOOO 2 3 RP | 000^ R OOOQ22 SMALL 0006 r 00 ; 10l4 SPACE 0007 OOOOOO STAGE 

1034 OOOOnn TITLE — 0004 000024.. T I T L EI OOQu 000036 T I T L F-2 00Q4 r OOOOOO T I TL E 3 0005 c OO0DO4 TftO 

0306 B OOOOtn' WIDTH 0007 L OOOn 17 TCSMTJr 0007 L 000024 Y fr g P C H 0007 L 000020 Yesra'-V 0007 L 000025 Y Esr LP 

IQ Q 1 . .. I — 0 OH .0.2 .6 , 1 E SS R l D00Z_L_XKJJn.2i_.Y^SS-Re □OO/v-R-OOOUZy.-.t I *JC 


OD | 0 1 
DO 1 1 :» 
00J02 
-00 1 0.1_. 
00102 
.op.i 
00 1 rn 
. 00 1 a -i 
no 1 0 1 

''OH., 

Doin', 

0 0 12 •• _ 
DC ! l 


l * 

.. 7 \ 

3* 

_ 4 *_ 
5* 

. 6 •_ 

7 • 

•fl* 

9 • 

1 o» 

1 1 • 
12 ?. 
! )• 


PLnCK DATA 

... C0^:1.Q1 / .<££p. 2 7_.H BLANK » DHF l L T -. «B LK-^-Hk ^ Y » HE ST I .* H ri A T R , HGENE , H R A ,7 » .. 

1 HRETA»HSTAN,HNE v v»MNYqu,HR00T»HR0LL*HSlCiHS2,Hs 1< fl» 

2 uO HIV .UA^T 1 L10I lie IICT d 9 Ut .* nhr- u « . - 


3L° *4{ X ♦ H A S Ll HP L U-S » ^ 0 Q.T..* H S T A. R.» HI nC 4HDEC*HC«*HCC((V» — 
HATT,HRATE»HA <;CtHr p 0t HppNtH , FpDN*HFGO»HFGN»HFPDO» 

N n m j 


utLOm 

PRECISION hrl ank » dhf i lt 


0 0(jQ L E 

COmMOn/KFEP V T 1 T-le< 20> ,T I T L EH 10) ,T [TLE21 lol *TITlE3Uo) , n AmE 12) , 

1 c ARn ( 20 > I(. ABE, < 20 I 

. RE AL :j Amf 

co-mOn/kfep 1 4/mAlf . one , t ,vr> 1 (,-oyp ,FipTE- J »na, D i l o?,o3,qH >F ip T Y,pj* 

L P l 2 t qM.ALL , RP I , h aDC E 5 , OpG 1 N I »N? , m3 

C Or- PL EX H Alf t ONE * 7 0 * F OyR , F I F T EN 


73 4 ^ 
.7 35q 
7 3 6q 

_7 3 7 q 
7 38 0 
-73 9 U 

74 1 0 
7 ** 2 q 
7430 
7 4 4q 
-745 0 . 


OOOOOO 

OOOOOO 

OOOOOO 

.DOOQOO 

OOOOOO 

...oooono 
0 0 0 u n 0 
onouoa 
0 0 0 0 u 0 

0O(HJ, ID 
OOOOOO 
- OOOuOO 
□ n u 0 0 0 



Z€r 9 


OOJ 

.0 0 1 1 U . 

001 I ■> 

jgj u .T- 


1 9* 

-J5*. 

16* 

-IX*- 


COnMn^/Kjr^Pi 5/«£G| Om H ) , »I °y H < * J t SPACE ( *1 1 ,9 J nC< h ) , 

_1 oA.(.‘t. M .R I D (.*.) ip 3 6 ( t I0D< 7 ) t If)S( 7 > • CP-S-LBL I I 0 > 

2 nCSLBL iDEfiLOL ,FmT< 1 2) ,FMAT( 12) ,r6,F7,LA0ELH2O» » 

., 3 .., uAr-e t-ii-2 a ) 


ODlll 

not 1 7 
non? 

0 0112 

- 0 0 LL'_ 

001 l 3 
_ 0 0 n ‘1 _ 
“o 0 1 i ‘i 
DO It *» . 

ooi 1 •» 
...no 1 1 -t 

0 0 ] 1 'l 

no i i i . 

001 1 I 

- 00 n I 
0 0 1 1 * 

Q 0 1 1JL. 

noi I'l 

0 0 1 6 1 

OD|M 
. 0 0 1 6 < . 
00161 

00 1 6 1_ 

00 1 6 ) 

00 16 1.. 

0021 1 
. 002 12.. 

00 2 1 9 
...002 1 . 

0 0 2 1 9 
— 002 1 

002 1'! 
..... 00 21 X- 

• 0022? 

_...QP 

0022 ' 

0023.1 j. 

0 D ? 3 I 
0023 1 
0 D 2 3 » 
n 0 ? 3 X.. 

no 2 ii 
no 24 i 

0029 1 

___ n o 2 «* 1 1 _ 
00211 

0.02.1 .1 

0 0 24'! 
00 2 1 "» 
f)02i r > 

0 0 21"’ 

0 0 2 i 7 


19* 

\ 1* _ 

2n* 

2 1 _ 

22* 

23*_ 

29* 

25* 

2 6 , 

2 7 • 

2P* 

._2 9* 

3 n * 

3 1 • 

32* 

33* „ 

39* 

_35*_ 
36* 
37* ... 
31 * 
.39* _ 
in* 

.9 1 *._ 

9 2* 

„9 3 * . 


couple x rlg i on 

fO >.' MOH /<EEpl ,6/S. T AgE. i < 0 O.E. * N R C L P L.* 6! R P 0 L L » NP Z E h 0 • N X 6 * N X.N , n XR * 

1 ~ I OPpji , JOPpM t Pv*R I PCPt I PFac *PSL0SH , 

2 yF.sji.TX *yFSWArt ,YES*RP » D E B 0 ^ » LH..T . Y ES p CH » y E SRlP . 

3 YESSRL iNON^AL .motvet 

i Or, ic al y_l.Sn t x±y. E sra*. l.y E l s ?.e. • D.Ed u.£j. ».L L l-Lily e.s.p c h • * e slb l p- 

y Ess RL INOMNAL.NOTYET 


ilAlA-. 


.H^LanK iOhF.ILT ,hBIY iHKEY .HEST.I ».mM A TR ,hGENF iHRArt.* 

li R E T A I H S T A M , h N> E ,v . H N y o o . H R 0 0 T t H R 0 L L ♦ H s 1 C » H S 2 , HS 4 3 » 

-H 0 i m x , H A S T » H P l 0 S * m 0 0 T , H S T A R » H t iC»HOEC»HCW,HcCf»-- 
HATT t HRATE»nAfC,HFP0iHFPN»HFPlVjillFG0»HF(,N»HFPDD 


’FILTER 


•est I • 

•STAN* 

•s-ic* 

• * • 

* DEC * 
_L_A 4 cJL 


' H A j R ♦ 

* n E * 
'S-2 ' 


•gene 

• N Y Q U 
' S - 9 « 


B 

0 A t A 

data 

... 1 -.... 

2 

.3 


' c*v * 
_X.E-P-p-.J-. 

’FPrio* 

■ NOm I 1 / 


'RAW ' 

. .» ROOT • 

• 0 * 

t ft • 

• ATT* 

J.FpDML. 


1 K E y -» • 

1 RET A • 
•ROLL * 

*X » 
•INC • 

* RATE * 
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-C 0*110 N/KEf-P l-p/NUEr, t NCq , ME ( U C 0F r»R < ) OOU > » J C H OOO > 1 1 000 > 

1 LOlinOOJ.LOcPoLtGniinl.EvUSoni 

—C-0 rHOH ?XF fH»- l^-S- 7 A G E , K o 0 F » WK-c bPt r * R PO L E + « K Z f-frO iHXB »-HXN-,NXRv 

1 j Ci f’ ^ i . t ^ o F* r n ,PvAR,nNO!i f PCPL.PFAt»PSL0SH, 

-2 y w5 h T X »rE:SRAK , YFHSRP . DE0U6 *UFLt I yESPCH . YF5RLP »' ■' 

3 yUSSITL »MJMMAL,KOTYfiT 

-L-OcJCAL yLSMTx«Yf SRAiV,YFSSRP*OEBUG.UFlT »YE:SpCH.YESRLPi — 

1 Y E 5 5 R L • W 0 M N A L , M o T y E T 

O+l t xFfpA-SA- G A-i M » L P H A 3 E- •* (pOL^S tL5DfcL-*Lz E-ftO S — 

LOrJ C AL L'aA 1 N »L pHASE », P 0 L v 0 • L SD* L * L? Ero S 


I 1 7 6 q onoono 

— I 177 O — ononco 

II pod onoono 

— ji p i oooono 

11 p 2 q oonocio 

— HF^tr oooocic-- 


LOf. I c AL L'aM N »LpHAbE », P0Lv-SiL5DRL*L/.t.Ra5 

XJ3«M0 N /.nutD3/-Cy.U Of Afjt /PR^FPR] ,FPR2,PRo,rR| ,F R 2,PRo t PR IjPP? 

1 i! 0 , (•! I ► R ? » R 3 « u , u , Up p 0 * W F P 1 • N p F 2 , N I T E R , N c T . M R EG # Nk 

7 «: r « - t * i.i t r fc»r 1 >■ f <- t r><\ u i? . To T ...nil AuTft .oFtcFi . ... 


001 2?_ 
0 0 12 2 
__ 3 0 12 2. 
OU 1 27 

.. 3012 2- 


0 012 3 

33* 

.0 0 1 2 H 

-3H * _ 

00 1 ?l 

3 S * 

_Q 0 l 2 7 

3 6 * 

DO! 27 

37* .. 

ca l 2 7 

3 9*.. 

00127 

39* 

00)27. 

*» n ♦ 

00)3 1 

*i 1 * 

C Q 1 3 2- 

H 2 * 


» lor-r 1 % ' * r » r r - - ” t < ^ f 

2 NST.fipT hjT I KE I mEsT , done »RESTr T , C 0N j • AuTO *rEgsEl 

C 0 n p L E X CUiFpR^iFp^l’FPR-^aFROaFR^FR^tpROiPRl'PR 2 ! 

I - — - — f«_U .»4i_f~ T -R..?-»-E-l- t S-, y — — 

LOGICAL 00Hr.RE:STRr # CoNj,AUTO,REGSEL 

CO».tiio;i/CRUO&/- UP • OflwN . NExpO .OEXpO »NG #NZ 

I N T E S E R D^XPn 

COmPUFX uP-»no.'jN- - — 

c 

C INITIALIZE and CHECK WHETHER a matrix has BEEN uEfINEd 
AUTO * »TRUEi 

IF 1 <NR.LF*0 .or* nr *GT*HXEl 5 > Nf? “ H I ^0 ( HX^ I G • MEQ* * NdEq" W 1 


MkOOE , 


1 1 8 S o 
— 1 18 6 0 

-- U 8 Y 0 - 
1190q 

119 1 Q — 

1 1 72 0 
-1193c 
1 19H 0 
- 1 1 9&0- 
1 196 0 


M97 n 
1 I960 
1 1 9 9 o 

-120 I Q 


onoooo 

anoooo- 

oooono 

unnuoo 

onoono 
— oooono 

ooouun 

• ■ o n r n n o 
oooono 
onoono 
nnoocm 
— opoonn 

umoan 
o n o o n n 
onnuno 
.. on noun 
oooono 
— ooounn- 


c 

C NO 

c 


MATRIX has been defined 
X Or>E =* 

^.(v-yyji :4 — 1 


12n2 ( , 

oooono 

I2u3o 

- oooono 

120*10 

0 0 0 U 0 0 

1 2 0.&D .... 

ocmono 

1 20 7 o 

Ufiouno 

1 2l)Bo- — 

onnuoo 

I 2U9 0 

oonuoo 

- 12J0Q - 

ooourio 

l 2 1 1 q 

onoooo 

- 1 2 1 2q ... 

oouoo 1 

1213q 

000002 

. _ 1 7 | R Q 

000027 — 

1 2 1 5 0 

000027 

12 160 . 

000027 

I217 0 

000027 


30 1 3? 
30 1 3 2 
00 13? 
„ 0 Q l 32- 
00 ) 33 

-001 3S>- 
00 136 

00 1 M ) 

00 1 H 7 
CO 1 s 3 


0 P E M 


L 0 0 p 


ZEROS 


IF ( .NOT;l*ER0S > GO TO *10 

-CaU RL-0C4JS 1^4-0 an-l 

IF (MElG.ro. 0 * A N 0 ” GPR1NT) Wr 1 y E ( 6 » 600 1 
.format 1 //./20x . 'NO OPEN LOOP ZEROS FxIST f A 
CAlL. ^CALC (Ui’.NfxPOI 
Return — 


12 l8o 
121^0 
.12 200- 
1221 a 
12220 
l 2 2 3q 
-122 *10.. 


1 2 50q 
125 10 

1 255q 
1 2 7 30 


0OCU27 
0 0 0 U H 3 
a nn oh 5 
on no*i s 

onoo*i5 
oooo n s 
onouH^.. 
000052 
000053- 

000056 
00007 1 
U 0 0 0 7 1 
0 P 0 0 7 5 


0 p £ N 


LOOP 


00| «j3 

.001 .HI.. 
00 1 *13 

a a i *4 r « 

OOIV.'. 
00 1 M? 
.0 0 t SI . 
00 l 5? 
_..D0lS2- 


S3. 

. 5 4.*.. 
55 • 
_56*. 
57 • 
.54 * 
59 ♦ 

.. 60*. 
61 • 
_6 2 *.. 


C 

-C- 

c 

_c_ 


POLES 


40 ir ( .not ' lpolEs* sn To 60 

C A ^L- .3 LOCUS TS luOO ) 

IF < N f. I 3 . F C « 0 i 5 0 TO 5000 

C A L L... < CA L.C .. 1 0 0 .V.N .» 0 E X P 0 1 

R ET URM 


00152 

63* 

c 

00152 . 

6 4*. 

c 

no 15? 

65* 

C 

00153 

66* 

60 .< 

0015“ 

67 • 


D 0 1 5 C 

63* 


00 1 57 

69* 

• 

D 0 1 5 7 

70^ 

i, C 

00 157 

71 • 

C 

. ..00157 ,1 

.72* 

C -ERRO 

00157 

73* 

c 

0 D l 4 r- 

7 4*. 

l nnn 

OD 1 6 1 

75* 


00161 

76* 

,C 

rroi 6 1 

77* 

C 

00161 .... 

.74* 

.C._ .NO.. 

0016 1 

79* 

C 

0016? 

On » 

5.000— 


C-t-O-S-F 0 __l — 0-0. -P- £..O..i.-E-S- 


C*lL i?LOcijSt*loQO) 

L£-±ti£ J.5., 


_6o.aiL 


R z T u R N 


RETURN 1 




-p> 

o 


DO 1 6 3 
.00164 
0016*» 
.00 1 6“ 
00 164 
.0016“ 
00 165 
0 0J66. 
0 016 7 
0 D 1 7 0 



KOdE » 9 

JLE.TUSN-.3- 


C 

„C„ 


C NO CONTINUOUS SYSTEM CLOSED L°0P POLES 


6000 CONTINUE 

._KO,nE ?-lQ- 
REtURN l 
_EN r> — — 





5F0<?,JS» f.CSmT^X.F.CSMtRX 
F0n-$Eix»a$/2}/7H~a s j-ZJ-j-iJU-t 2,3 


5 ms R 0UT!NE CSn T R x ENthY POIMT 00007** 


S T. U R A G E -U S E. D; . _ COD Ei.l J_ 0:iQ 1 QD;_-0 AT-A (.ul_.Q <>□ l.‘U4- B L a N < c Omm ON ( Z> - OOnnUO — ■ 

r. Q .,rtaQN.. .3i. Q CiC.S-: 

, — 0.10 3 KEEPS. ..QqOo7 1 - - 

000*4 < EE P 7 ODD? I 2 

0005 kEF.PLS 003002 


EXTERNAL REFERENCE $ ( RLnC<» NA;4E) 


O'JOA NYDUs 
0 0 1 D N I 0 1 S 

oo-i i w »: r a 33 


STORAGr ASSIGNMENT <UloC k . TYPE* RELATIVE LOCATjoNi NAME) 


cr 

i 

~p»- 


OOo ! 000025 1 ZQr s 

-4? 00-0 on 03 SJ2— 6.02 f 

0003 I 000073 GPRIMT 
0 OO H | — OO07 0? •NDC 0 £F- 

0 0 u 5 i noonnn h^scl 

O'JOR-- 0001 13. KIN 

0303 L 0U007ft YESZOH 


3 ' 0 'J 0 h 0 I 3 0 g 
_n q-o Q.Z 
cmuo i ooooou | 

— 0 0 0 1 — 0 00 7 0 5 ...-M [) GO- 

hour nnn/ 1 i nzd 

„0il0.‘l 0002 26. r,7P„. 

quo 3 nnunOZ 7 m 


oooi nono 6 3 5n^ 

-•D O0~3~t — ft o 0 0-7-l~*-|}-4> T H 

ooon non l 31. i r jjps 
OOO^-I-OOOZO^NogN 

noD'i ooo7io u 7N 

.0 0 0 'l 0 00 0 0 0.. II rm 

nool 0 0 U 'J 0 I Z T 


oooo noooni aoof 
-OOOR-fr- 0 o o SXo-fT D p Ot. — 
ODO 3 t OOOOA 7 I THZT 
- 00o5--l-0000al.. NDSCL— 
ooo 3 OOOOnH NZ T 

non 3 - r nooooo super* 

OO 0 3 0000 05 ZTvAL 


OnOO 


0000 

32 

*0 1 F 

- 000 * 4 - 

R 

-000*4 

5*4 

FNroL- 

0003 

L 

0000 

72 

modify 

----- 0 00** 

I 

0007 

0* 

nncoEf 

OOOR 


0 U 0 3 

*4 1 

rid 

- 0003 


a u n 0 

03 

Td 


OOini 

00103 
.00103 

oo i n *1 

. 0 01.0.5 


1 • 

2 • 

..is. 

*4* 


. 5J > ii ROUT L M E. c S M J R X ... , .... ; _ 

COKMO-j/KEEp5/ SUprRK*ZT,7M»T0.N7T.7TvAL ( 50).)THzT t YE5Z0H»B0TH, 
l MCJD | FY I GPR I N-T - 

LOGICAL yFSZOH* BOTH,M 0 D IFy » GPR INT 


0 0 10 5 

6« 

1 

0010 6..:. 

„ 7 •_ . 

u 

00 J 06 

P* 

c 

001 06- „ 

,9* 

. ..c_ 

0 0 J 0 6 

10* 

C pRli 

00 1 n6 

1 j • 

c 

00 1 07 

1 2* 


.00 111 „ ... 

.13*. , 


0011 H 

1 *4* 

600 1 

00 1 1 H 

15* 

I 

00 11 *4 

16* 

2 

00 1 1 5 . 

1 7* 


.00 1 2*4 

,15* 

60 1 | 

0 0 12 H..J 

1 9 * _.. 

« | 

00 125 

20* 



rn'4H0.|/< FE P7/ r R axis n (. Z.&, i. l .Rn.lU 7_s l, R. j tu.Z&j-* FjiPJlU. 7 6 


FDPOL ( 7 6 ) I NqGm iND^O »mmcoEF • NDCOEF i NZN tNzO 

C-OMMOMZKrFPlQ^- NN^cL mjdscl — — — - 


|f*T The CONTINUOUS SYSTEM open |,oOr TRANSFER FUNCTION 


s system op ek < 

///.»_ L^AdIJ^G -COEFF-lC 


L n 

1 ELMt — 


1 F 1 ♦ f'OT , GPP I NT ) no To 5n 
.:R j TE ( 6 f 6f»U ) . SuHCliK 
F0 rII/' T ( M * , 15X,’C 0 N T I N U 0 U 

0....R T_.P _A.-JJ — E _ R F... U— N__ C— 

K ° * » IPEl 2.5) 

tJZ+lE Uk ,AOJ X_ll<jGU ,.!R.fc!pOt I.s l-,JJNc OEF-l — -i 1 — 

f Oi/,mA T 1 ff * NUMERATOR DEGREE » » I 5 , 1 n x , »corFF.I c I FhTS in ASCENDING PPyj 

P s OF S'//(|fli,i> (..j p F. 1 2 . 5 , 5 x ) > ) 

P 1 tr I * , Afi? > HI, Mi , 1 FDpOL ' 1 1 , I ** I .NDCOEF > 


I 3 7 2o 

1 373 0 

1 37 H o 

137 6 0 

: 1-3 7 7.q_ 

13?6o 

1 380o 

1 3fl 1 o 

1 362[j- 

1 3fl 3 q 

1.3 81 . 0 - 

)3A5 0 

1 3B6q 

1 3 6 7 o 
1 3 0 60 

1 309 o 

— I 3 90 0 
I391 0 
13 9 2 o 
I 3 V 3 d 


0O0D05 

00U005 

- 000005 
000005 

— GnooaS 

000005 

- 000005. ... 
UOOUOS 
000005 

0 OOuO 5 
— OnObOb 

on oc 05 

onuO(j7 
U 0 U 0 I 5 
.... 0000 15 .... 
ooou 1 5 

— 000015 

000030 

000030 








001 34 

..eoi 3*»_ 

00 I 3* 

.0 0 1J_2_. 

001 M 7 

. OCH 42. 

HQ 1 43 
. 00.1 4*1 

no i h£ 


22 * 

23* 

.2 4*. 

2S» 



602 DENoMlMATOR D^gKeE * » I 5 » 1 OX , ’COEF-F IC I ENTs IN A5C E NDlN6 p 1394 q 

•0ft F J?S..-0E..^S’^/-L|.UX.,U-lPc-l2*5-,Sx U >• } 3*-j>0- 

IF (Nf,|5CL»NE»n »DSCL«Np.O) Y/R l T E ( 6 i 6 q 3 > N-fiSCU • NOScL 13<?6q 

6D3 9 c~flU v F A cXOJiS-»£jtf~.rtE»^I.ft EO -J-U-f.* RAND IN G — T HE - OpE N-L-O© E3.9 2-0- 

l P 7Ef?aS AMD p 0 L E G JNTq rOl Y nOm I A LS ’ / / 30 X • * OpEN i_0 0p ZERO SCALE 139 Uq 

7 1 3/ 3UX P.OtE- 5 c ALg;.. s 1.3-1 — 

f-0 CO!:T 1 MUE 

ENp 


139V 0 

MOO(j 

1 *»ni 0 
1 **020 


OnCOH3 

■000043 
000043 
.0000* 3- 
000063 
000063 
000063 
000063 

OOCU77 


_E N 0 f„. con Pl.LAlJ.OliJ M.0 — 0 lA Gw oSTJjCSL* — 




? FOR*US w r •CS0LTF»r»C50LTF 

FOR SE| o7--l-7- ( tM- — 


SUBROUT l NE c s o l t f 


Eh! try point C! 0 0 z <i n 



5 T J r A (i r ASSIGNMENT If 

r .00 1 000? 1 6 l 0 QfiL 

CQO 1 OOP 2 3 u .,.3 Q uOL — 

0306 0 00 I 3 n PCRLBL 


TYPE, RELATIVE lOCaTjON* NAME) 


0001 OOOIOI 

Doo.1 a a a.2^. 

nnoT l 0000*2 


p noo*)5*) 
oon l on 

000067 

n o n 2 i n 

I non 7 OS 
I 0 : )»0Q 4 
L njno3ri 

ooo QoS 

| 000/10 
_R_o.aa.QQ z 
H 0003^1 
QOOQO'J 
L on Of) I 7 
L COO. 17 1 

i n joons 


FNPOL 

ID!) 

I T H 7 T 

L A 0 E L 
LOcpQL 

.-1Q-Q.1 ELY 

N 0 G 0 

..flEXPO,_ 

fiOTyET 

. JJ X R — 

NZN • 

POiEB 

R 1 D 
STarE 
y r s » r x 
r c s s R P 

/ T V A L 


0 0 0 6 
. ono&_ 
onus 
C o 0 * . 


0001*2 

..dguioT.. 

On 1 7^*1 
0 D 0 2 3 f»... 


no i ) L unoro l 

_.t!0 US : QOOg.Q 3 

n n o •! i non? o *t 
..on i? _.. on Du 0 6 
OouO | on o not 

_OQ0? 000 0 0.6.. 

noo'3 OOOOOM 

_oo □ z___~o.no. alt 
PnO^ R non 1 i 3 
..oaui r ooogQo 

no i)7 L noon 2 h 

.ri'jOl l U!)'JfJ / 0 


1 2L 000! ODOIOS J3l 

rood I - — 0 0 Q 1— L - -0 0 0 0 7 1... R o T H - 

DEBUG 0006 000131 DEgEQI 

-E-V O Q Qq~R— 0 00 5 J.O_F{) rOL- 

F 6 0006 0001*3 F7 

| DG 0 00 0 OODU 1 S._.INjPS 

jC nn07 I GOOD I 1 JOpEN 

.UABElA OOOx L. .000023 LFL T -- 

LpHASE 0011 L 000002 LpOLE 1 

. m C OF Q 0 OS. U 0 3 / 2 

►jfiCiN on in t non on l n.-^cl 

uCj _ no 000706 N|, C 0 E 

NPT 00U7 000002 NRcLP 

_W*N — 0 0 0.7 0000 0/ .NxR -- 

NZT 0007 OODOlR pCpL 

-pSL-O-SH -.000-7 0000 l-2._Ry.AR_ 

r ] N 0 00 i P 000 2 26 Rh q 

SUPER K __.nOU3. ..000003 Tu- • 
YF’SPCH 0007 L oaoc'/u V E S R A 

y r S 2 OH nou6 0 0 U U 2 (J y T l:C 


0001 00007n 1*)3 g 

0006 0001 16_CPSLBL 

aoi2 i oouoas oexpo 

0006 0 004.1 6..FM AT 

0003 L OOOU73 G PR 1 NT 

0007_I -OOOUlO I OPEN 

0007 I oouao 1 kode 

,_oo 1 1 - l-- cooaoo lgain 

00 11 t_ 0 0 00 0 3 LSDRL 

oo o ft __i — r. n i ) 7 a 7 . _w o cc £ f 

oonS notion? me 
001Q 1 OOUOOO NWSCL 
0007 00000 3 N N p 0 1 E 

.... 00 1 2 — . 00 0 00 7.. NZ 

0007 DQUO 1 5 PFAC 
0006 00003 S ,p3i» 

00 0 R p oouooo RRN 

. 00)2. C . OOUOOO UP ...... 

0007 L nnuo25 yESPLP 
oan3 000002 Zhl 


0 no 1 000222 2000L 

00D6 00002*) DA 

0012 C 000002 DOWN 

000132 FH T — 

0000 I OOOOOO I 

ono5 oooon*) ir - - 

0006 000 1 6H LABEL 1 . 

OOOS 0 DS 6 ? *t LL 

anil l oooooh lzekos 
_ 00 0 5 0 0 0000 NPEg - 

0005 1 Uuoao 1 NEQ 

0 0 07 L U U 0 0 2 7 NOmnAl 

0007 QUOOO*) NRZERO 

OOOn l 0007 | I NZO 
0007 000013 PNOM 

_0n06— C OOOOOO REGION 

0006 00001*) SPACE 
oau6 oonoio width 

0007 L 0 U 0 U 2 6 YESS«L 
0003 UJOUUl Zt 




W* I t. 


**■ «»!*( — I.J ♦ 


t. 4S -m J •.*.**♦'*< 4.4*. 


O&IFhlL. 

aO?IjT'rj 



00 

oo 

.00 

oo 


3»j 
3 i 
3.? 
37 

3 2. 


37 

39 

.39 

HCI 

,11 


— S>' v ft3.->T;.Ift.jr. CS.Oltliffc *>. . 

C0- W M-f».«l./IC»KP5/- SUPfR* •Zf*2rtlTO»H 7 T,^Tv^L(SO| , I T MI T r V E S Z OH . 00 JH . 

_.Jl. _.<a.OD|F.y *GPR ! N l_ . __ ._ 

LOGICAL y ES 20H »0O TH , M 0 D I Fy * GpR 1 NT 

— C£u*1tn / icrrp7/ R.KU 1 2 5. U(U.n L l S-L. R h a L73 J ,.R l Oils J_, F N P o | (7 6.J_i 

l F o P 0 1 . ( 7 6 J I N f> & , N 0 r, 0 I N N c 0 E F » N D o E r I N Z N , N Z D 

.. ...C.S !'.M 0 m/ < c F p l -0/n U E r i , rj E Q • w E , MC 0 F , | R ( j DO 0 * * U C { | o U 0 ) • w D t 1 000 ) , 

1 i.Liinno>iLOcPon6ni*nj,Fv<i - E>onj 

..._CQl!MD.^/K£FP 15/rLG r 0!J tl t [ OTH ( 4 ) i5r>ACfc < 4 > , Y Jf.C ( 4 > , . . 

* [) A(< M,OijM<‘nip36(36J,i [ ) H (7),i r)r! «7), C pSL0t.UO> t .' 

nCabBL ' D E.GLn L. t .E M T (-123 , FH.AJJ .1,2.1-,.^-, EJ?_, LABFL-U 2&U- 

3 L A t'FL2<20) iLA 0 El3(2O> 

-CllaPLEX rEGIoN .. 

C0^MnN/!<EEpl6 / 5 T Af;E*KGDE»NRcLpLi N Rp0LE»NRzER0»MxB»MxNtNxR. 

- l — — 1 PpfM|JQPEN|PvAR»pN0m*PCPL i p F A c »PSL0SH» 

2 YESMTx»r^S^Aw,YESS^PiDEi3UG»LFLT*YESpcH»YESRLP» 

Ji y.£ S S-P L»M0.H6JAi_,N0^YEX 


00 1 ?p 
0D12C 
0 0 12 0 
00 1 20 ... 

26 • 
. .27* 
23 * 
29 • 

C 

c 

_r . 

INITIALIZE cor CONTINUOUS 

00121 

30 * 


LSnRL “ .FALSE. 

0 00122 

3 1* „ 


.LG A 1.4 * .FALSE,.,., _ 

1 00)23 

32 * 


LPhASE 3 .FALSE* 

CO 1 2“* 

33* 

_ 

- LPnLEs 3 .FALSE.*. 

00 ) 2 ’■ 

34 • 


MO-.iNAl 3 .FALSE* 

n o i 2 * 

35 * 


i 7 r R n S ■ . r A 1 S E • 

00 127 

3 6 • 


R eg i O k ; < n => to. i 


LOGICAL yESmTXMEERAjk.yESSRp - DEBUG »L Ft T»yESpcH»YESRLP. 

A ._ Y E S 5 3 L i N 0 M N A L , N 0 T y E T. . . ... 

COmMON/KEFPIR/ nnscl»ndscl 

... cOmmon/xeep i 9 / l ga i n .lphase »epolfs -LSDRL iLzEroS. . . 

LOGICAL LGMN,LpHASEi L P0LFS.LSDRl*LzErtcS 

--CCU MJUtZ.C R-UOS.Z_4 j.PjX 3 a iilt-MEX R.U., 0 E X P Q» 44 G » N Z .. .. - 

INTEGER D r -XPQ 

-COMPLEX U P.iDOA'N 


HoJn 

. OGCOgO 

lyoya 

oooooo 

l 4o5o 

- - oooooo 

l R 0 7 o 

u n n o o a 

J '} 0 3 0 0 Q o 0 0 

I 409 0 

onoooo 

1 9 3q 

.— ooauno 

R94o 

n noun a 


... ooouoo 

7 H V o 

oooooo 

7 5 0 q . 

0 o 0 0 0 0 

751 0 

onoooo 

... 7 S 2 o 

onoooo _. 

2 4 o 

oooooo 

2&0 

onoooo 

2*0 

oooaoo 

2 7n - 

o n fj o o o 

200 

ocooua 

... 2 9 o 

ooouoo 

14110 

ooaono 

.... 

onoooo 


oonooo 

.l..y_1.2o. 

OOOUOO 

IH13 0 

oonuon 

14 1 4{J 

— onoono 


,.REc,I 0.\t {.2 ) 
RES 1 ON < 3 1 
-KEfiJ ON > 1 I 


( “ l 0 * , 5 * j. 

(-5D. ,Q. > 
(D..*r5o.#> 


0 013 2 

DOl 3 7. 

42* 
4 3 * 

C 

jC 

PRINT The CONTINUOUS SYSTEM CHARACTERISTIC 

MATRIX 

00 133 

.. 0013 3. 

00131 
0 013 1 

00133 

0013* 

0013. 

00 141 

4 4 * 
45* 

..c 

CAlL PRINTT ( S 1 Q 00 ) 


46* 
47 ♦ 

4 ft * 
4 V * 

&')• 

51* 

c 

c 

pjJLEJki 1 H E I F _cp N T J n u5u5 _S_Y_5 7 E H A N A y.5 Is C AN HE pERf 0 Rm.E D_ 
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0030?" 
00 3 O' 1 
00305 
0 0 30 6 
0 0 3D 7 


.at*. 

02 * 

A GUI 
83* 

'DIAGNOSTIC* 

8h* 

. 85* ... 

•diagnostic* 

8 6 *.. 

87* 

. an* 

87 ■ 

90 * 

91* 

9 2 *. 

9 3* 

... . 94* 

95* 

96* 


--C- 

c 

c. 

c 


97* 
9 ft • 

99* 
' 00 * 
n l * 
02 * 
03* 


IF tOpT^NE.HBLK » AND . OpT zoH * N £ • HbLK 1 B0TH*»,TRuE* . * 

- -Y £ s SR L— 1 * -•■FA LS E * — 

YEsSRp • .FALSE* 

T_ F-Q R__E f) y.A l L.ty—0 li_.M QJJ-^LN-TX g E R S._ HAY— N-OT B£--HE Aw4-N{jF^yL-» 

IF t O pTTrl .EO-HOL* ) GO TO 3q 

_T.HE. TEST FOR Eov|A L ITy 0 ET w EEn m 0 N - ! N T E G ER S ..M A Y—NOT- B .E _M E A N I-Ng FuL • 
IF < OpT Zry H hULK ) GO TO 6 Q g 0 

YEsSRL 3 .TRUE. -. 

The TEST FOP Equally b ETwEEn mON-iNTEgENS MAy hot be MEANINGFUL* 

-IF — C OpXT.n . N E .H 0 L.K.3 — Y ES S RE."* Y R U E * 1 • 

30 CONTINUE 


CONSTRUCT The THIRD plot . TITLE. _. ..... 

-T. I-T-L E 3 Ll5 1 — * — U Ail El -| 4 1 

T I TLE3 < I A 1 » NAME ( 2 I 


1540 0 

-154 10- 
l 542 q 


000222 

000240 

000241 


read next, request 


■ HE AD. 1.5 ,5 □ . 4 J — R E Q K si »QP-T I NE-t. 0 ^.T-l_^opJ. 2 < 0 Rl. 3 j p.N t. 


1543 D 


1544 0 - 


— 1.S 4 5 0- 
1 5 4 6q 
—1 5 4 7 o 
1 540Q 
- 1549 0 . 

1 5 5Ug 
-15510 
1 S52 0 
. 1 5 5 3g . 
I554 0 
15SS 0 
1 5 5 6 q 


agnqs.ulx.: 

04 * 


504 FOrHAT*A4,1&X,A‘»»6X»4(A1»9XJ> 



IS* 

1 6 • 

17 * 

IB* . 

19 * 

2 0 • ... 

21 * 

22 - ... 

23 * 

24* . 

25* 

agn ostic* 

26* 

2 7 * 

Zfl • 

29 * 

30 * 


incorporate, nyqu i sT. request ... 

Jb JLJ. LSI- ET1R_ £ Q.U AU-I-Y_nl Iw EEn...wON^, 

IF tRE<JEST.EO»HNYou» GO TO 35 

-YE s NY fj- • 4 — « FALSE* 

STnDRd =» .FALSE* 

PN " HHLK , . 

PB « HH1.K 

— Rl a CL. a . UBL-K 

NF I * 0 

GO TO 4a 

35 COnTInUE 

NlcPLT ■ .FALSE.* ... 

THE TEST FOR EquALlTy BETWEEN nON-iNTEgERS MAy NOT 0E MEANINGFUL* 

.1F....1PH1 ,MF. H ft L 1C 1 Ml f Pl T * .TRy g. 

CAlL iNPNYQt* loOOl 


1 5 59g 

1 5 60g 
15610 
I562 0 

1 563 o 
1 5 6 4 0 
15650 

1 5 6 6g 

1 567 0 
.15600- 

1 5 6 9q 

1 570q 
I 5 7 1 u 


READ next REQUEST . 

REA D-l Sa.S 0.4. 1. .P E y.E.S.T. 4 .0 PJT lJMP.i 0 pLLui PJL2.,„0P.TJL 


incorporate root locus request 


40 CONTINUE 

1HE... T E SJ_ FOj?_ E Qi>_A LlVlM M . N P H r 1 . N l£li EB-5_MAY_N.0I_ BEL.bEAN.lNGFU;L A. 
IF 1 REQEST.EQ*H«Oc^ ) go TO 45 

. ... YEsRL “ .FALSE. . ..._ . , 

YEsRLp » .FALSE* 

PG * HBL< ... .... .. J 

PP c. hulk 


..4 57 3 0 

I574 a 

. 1575 0 
I 57 6 0 
— 1 5 7 7 o 
1 5 7 Bg 

IS79 0 

IS 8 U 0 

1501q 

156*0 


I 58 3q 
1 5 8 4q 
I 5 85q 
1 586 0 

158 7-0 


000242 

□0024* 

000252 

-000254 
000263 
000263 
000263 
000263 
0OO26 3 
0 0 0 2 6 3.. 
000264 
000264 
000264 
000264 
00D26H 
. OOD266 

000301 
00030 1 
000301 
0003d 1 
00 0 3 0 1 

00030 1 
000305 
00O3O6 
000307 
00031 1 
0003 I 2 
0D03 1 3 
00 D 3 1 4 
0003J6 
0003 1 6 

000316. 

000324 

000324 

000324 

000324 

000324 

000327 

000327 

000327 

000327 

000327. 

000342 

000342 

000345 

000346 

000347 

0003S1 




READ next reddest- 

-READ I 5 »5dh > REo£5TvO?T-l MR-» OpT |-»oPT 2 * OP T 3 


INCORPORATE CONTINUOUS case ESTIMATES 


agnostic' 


00347 

169* 

— . 00351 

. 1 6S* • — - 

CO 3 5 I 

| 6 6* ( 

0 0 3 s i 

~ -l 6 7*- H 

0035 1 

160* l 

. 0035 1 - 

169* 1 

00 3 5 2 

•DIAGNOSTIC' 

. . ..00352.. 

.. 1 7 a * .. ... 

00 3 5" 

•DIAGNOSTIC 

0 0 3 5 . 

1 7 1 * 

00356 

1 7 2 * 


PPlT ■ H9LK • ' ISBBq 

NG A I M- » — 0 : 15890“ 

NPhA5e ■' 0 1S9Q0 

NRrf R- Ja ~t»"- 1 1 159 l 0“ 

GO TO 50 ' 1592o 

A5 - COMT 1 N«'E : 159 30 

the .test tor Equally between non- integers may not be meanin g fuL* 

■ 1 f— I 0 p-T z n-H’« E 0 *Hfl kK"' — GO '"TO —6 q 0 0 ' 

CALL I NP9L ( S 1 OaD J 

■1 59 Sg— 
1 59*0 
1 597 g 
159B 0 

159*0 
I 6 oOg 
-1 4010“ 
1 60 2 o 
1 6o3o 
1 60 H g 

1 6o5g 
--I 606g- 
1 607g 

-1 6Q0O 

I 6 l Og 
.16110 
- 1 6 1 2 o 
1 6l3g 

- 14 1 4g 
1 6 | 5 g 

• 1 6 1 6 g 
1 6 1 7g 
-1 6 1 8g 
1 6 1 9 q 

16200 

16220 
-l 6 2 3 q - 

I 6 2 4q 

- 1 625o 

-1 A26g 


5D CONTINUE 

ThE—TeST- EOR-EquAl I Ty • B E TwEEn — tjON*! W TEq ErS- M A y- NOT— BE - HE AN I-NqFuL-* 
IF I RENEsT«EQ*hESTj 1 GO TO 55 

N A — * — o 

GO TO 60 

55 COnT I WUE-: 

CA L L 1 NPEST I S IQOO) 


REaD I S .5cm-l^EqEST-,0PTlNp-.,0pT l *0PT2.,0P-T^ 


incorporate continuous System characteristic matrix 


60 CONTINUE 

the.. test .for -Equal-I-T-y -b e tween ..won-i nt.egEhs-ma.y-.-nO-T^bE-.meaninqfuL’- 

if t REVEST. NE ‘H^A tr > GO TO ROOD 

CALL I'JPMTXtSlOOO) 


0 0 3 5 !■ 

0 0 3 5 6 

□ 0355- 
00356 
.P035Z_ 
003&N 
0036;; 
00 36 '! 
0036) 
0036-' 


173* 

, 7 H • 
75*. 
76* 
77*. 
78* 
79 * 
i 8 rj * 
0 l • 
02 * 


C DETERMINE WHETHER To FxEcUTE T h E NOMINAL MATRIX 

the test for e Q ua l it y b et iv een non-inte g ers may not be meaningful* 

IF-_<PNOM.nE*HBLK-.* A NO- PVAK,NE*HBLk } return 3 

the test for equally between n on-intf:gErs may not be meanTNgFuU* 

I F. —l.PNOM « ME.j HBLK~*-AN0 AR, Eq.HBLK 1 — G 0 — T.0 BQDQ 

RETURN 


- o A T. A. I N P uT— ERR 0 R 


.1 OOQ-CO N TJJJ U E 

RETURN l 


NUHrEr Of SAMPLE RATFS Is OUT op RANGE — 


J.6 2 7 g„ 

1 6200 
1629g 

16300 
16310* 
|632q 
. 16 3 30. 
1 6 3 4 g 
1 6 3 5q 
1 636g 
1 6370 
I 6 3 8 0 


000352 
000353 
000354 
-000355 
000356 
000360 - 

000360“ 

000363 

000363 

000363 

DOO 36 3 

000363 

000366 

000366 

000366- 

000366 

000366 

000 4 0 1 

onoHa l 

-000404- 
000 4 0 5 
000407 - 
000407 
000 4 o 7 
00 0 4 0 7 
-000407- 
000407 
0004 1 1 
0004 1 1 
0004 1 I 
d'00 4 1 1 
00041 1 
000424 

000424 
000427. 
000427 
--O00 4 27- 
000427 
000427 

000432 

_000452 
000466 
000466 
000466 
000466 
000466 
— 0004 7 Z 
000472 
000472 
OOU472 
000472 
000472 



2000 CONTINUE 

— _ K 0 0 E— *- - 1 » 

RETURN I 


C HlLLI H ER... 7 _ T R A.H.S F 0 R M At I 0 N ^ J T H __o R _ w lJ HO u 0_1 0 H D E R _.H 0 U 0 -R E <} u E s t E D. 

KOoE « 1? 

c 

c illegal request 

4000 CONTINUE 

ICQ-O-E— ft— I 3 

RETURN l 

c 

C- _uSEr sElEcTE o_W 0 t_.T. Q...E X .E c U T E. „N 0 M I N A L- -M A T R I X- -N 0 R- _ 1 Np U T- VARIATIONS - 

C 


KOdE ® 14 

c 

C. C^ N UqT Request ROOT L 0Cu5 TOR SyST^MS wITHOuT A ZERO ORDER rOlD 


’0. 

oo— 

I 0 

2 0 — 
30 

‘to..., 
so 

. 1 6R6q 

1 Ah7 0 
.1 6H0o — 
1 A49q 

.1ASO0 - 
I ASIq 

l A02 q 
1 AS3 0 
-USIo— 
16500 
-1*5^0 
I 6S7q 
.USSfl ... 

I659 0 
-J.A A Do — 
16il 0 
1 662 Q - 


000 ** 7 6 

-Q0047A 

000477 

--OOOR7-7 

000477 

000^77 

000477 
000004 
00050H 
-000 505 
000000 
■ 000000 
000000 
000000 
0000 l 2 
-0005 1 2 
0000 1 3 

OnO0 1 3 

000013 
.00001 3 
000013 
-000020 
OOC102O 
OQQ02 l 
00052 1 
000021 
00052 1 


AOOQ CONTINUE 

jcooE.-5_.io a 

RETURN I 

c 

.C JIQ.-HUr E- pAlA CARQ‘ 

c 

?DO0_ CONTINUE 

RETURN 2 


„1 6 A.3o • - 
14640 

L 6_65 0 

164*0 
. 1 A 6 7 q ... 

1 AAQO 
. I649 0 ... 



End of compilation: 


19 DIAGNOSTICS* 











6-53 


STORAGE ASSIGNMENT <BLnC** TYPEi RELATIVE LOCATION* name! 

1001 nOOQlD 1L nooo R OOOtiOO DB OQDO 000002 lNJP$ 


001 o 1 I * eunct ion DO <a > 

• 30 1 0 J - - 2 * IT-. { A ,6T ,0.»— -GO— To— I 

OOin > 3* DO » 0. 

0010 i H * RETURN — 

0 0 1 0 1 S • 10n e ZO«*ALOGlO t A) 

00 11 -4 6 * RE T U-ftN 

0 0 1 | ! 7* ' ENd 



I670o QOOQOO 

167 1 o QOOOOO - 

1672 0 000003 

l 6 7 3 q - 0 0 Cl 00 H 

I 6 7 H o 000010 

1 6 7 &Q OOOOlR- — 

1 676q 000030 


ENo OF .-COmP I.LA.T.IDli: NjQ O.La G N-O.SX I C 5 i. 



»FOP*US# F*DEct0E iF'DFCtDE 
FOR. >£ 1 X *05/ 2 3 7.7 4 rOB J.28 : SO_t X* H± 


SlflROUTItJE DECIDE ENtRY POImT 000132 

$ to r a g e , g s e d : c o d e . n J_ .o a n 1 d. 4 T-A IflJ- -O-aCLP .p 7 .; ._d l a nk„xqm h.o nj 7l_CL0_a nQo 1 

•: Omm 0.N 3 L OC&SJ 1 - — 

lOa3_. KEEP? .. .0.00.7.05. l 

10Q4 CRUD3 016115 ! 

._ _E.i T £ R 4 A L_ HE.FELB.Ejj.CE-.S- .1 RLoCjU.. tUflCJ 1 — — 

jpo5....coa3v . : — 

>306 CDV* 


5 t ORA 6 f~ A 5 5 i G N M E N T (BLOC*. TYPEi RELATIVE LOCATjoNi NAME) 


>001 
1 0 0 M 


oonuo iQL 

n i 6 1 1 z conj 


ooo I 
.Da a.'*‘ 


0 00 I I 7 2 HL 
ooaaOQ . cu . 


noa<» 

oool< 


1004 

1 D 0 0. 

) 0 0 4 
_ 1034 
)Oo 4 

C 

01*042 FPRl 
nnHiln I IN ie>5 

00 0 4 

c 

01*0 44 ppR2 
n qQ ^ 72 ^ 0- 

0 0 f]» 
QOOX 

C l 
1 


0 1 6 1 Q 7 NEST 
n l 6 1 q i N 1 T F K 

0004 
J100 4 


ni & n y 6 mfpq 

0 1 6 i 0.4.. nK OdE 

0 0 0 <i 

.000 3. 

1 

1 


rj 1 6 1 n 6 NT I m E 

mo4 

c 

0l6 D 54 pR o 

0004 

c ■ 

. )0 0 4 

i 

016111 RESTRT 

0003 

c 

OOOQOJ ..ROOT — 

... ODOt. 

C l 

>004 

c 

016 0 7!) R 3 

0004 

c 

0 1 6 Q 7 4 ij 




0. 1 6 I 13 AUTO 
0161 10 DONE. 
0l 6 G46 FRO 

.. I. C [■ 


00 0 H c 016072 B 
0003 . C ~ OQJ 226 ._ EA ... 
OQQ 4 c o16o5q FR1 
-t)OM qLUJ 0-2— f-l-CX- 


cn 

i 

cn 


00 J o ! 

ao i o i 

ooi o \ 
00103 
ooi o i 
0 D i o *> 
ooj o;> 

a o i a » 

00 i n r 

001 o ' 
ooio'. 
0010 ' 

0010 ’ 
CIOlll 
00 11 ] . 
ooi n 

.00 1 1 1. 

0011 ! 

30 1 1 1 
OOJ l .1 


G 1 6 D ? 2 NFh 1 
000^56 
0 1 6 pS 6 pfl I 
a 1 6 0 6 2 Rtf 


■0004 c ,41 °0 NFp2 

. 0 00 4 0 16 I a 3... nREG — 

oan4 c n i6o6o pr2 

0004. c 016064 Rl 


ooos r aoaooo coabv 
- 0004 C 016040 Fppo 
0004 C 016052 FR 2 

-0003 000454-NE1G 

□003 000457 N I 

-0004 01 & 105 N5TART- 

0004 L 016114 REGSEU 
-0004 c 0 l 6 0 66 R 2 


.1 * 

2 • 

..... 3* .... 

4* 

5 • 

6 • 

7* 

8 * 

' 9 ... 

10* 

1 1 * 

1 2 * 

13* .. 

1 H. 

.. 1 5 • 

16* 

'AT 

•D « agnost 

1 4* 


_5Ur.R0|J.T 1 me. DECIDE... _ _ — _t6?.7o_ 

CDnMQN / KEEp 9 7 ROOT «75) ,EA t 7 fi t (Nfr [G,NA .NR»mI 1751 *KD(75) 167B 0 

..COMPLEX . ... . R 0 0 T. , E A — - - 

COmMOn/CRuO^ cO { 6a,6Ql,FpRG t ppRl,FpR2.FROtFRl»FR2,pRO,pRlipR2* 16010 

J sHiJU jR 2 .t R 3^.0 4 . U^J4pJ>.0. 4 J4FpJ.j NF.R 2 ,Ja.XEj?.t-NcJ^MR.EG*NK 0 OE^ L6a2.Q.- 


..COhPLEX 

. XOgICAL .. 


1 


NSTA « T « NTIME » NEsT ( DONEtRESTRT, c ONjtAgTOiREGSEL 

.... cO « FpRQ . FpR 1 * fPR 2 . FRO > FR 1 .« Fr 2 iP RO i PR 1 » pR 2 * — i.._ 
« 0 , Ri , R 2 tR 3 ; B t U 

..._ [) 0 N £, REsTrT , C 0 NjiAUT 0 » REGSEi - 


1 6B3q 


C • * • •* 

.C.1 

c 

-C- 


DETERMINE IF ALL R0dT 5 HAyE BEEN FOuNo 
done*. FALSE* 

TEsT NUMBER ONE 


1 60 5 q. 

1 6 0 6 q 
1 6 B 8 0 
_L6 3.? 0 _ 
1 69 Do 
1691 0 
1 6 9 2 q 
. 1 6 9 4 o . 
1 695 q 
-1626q_ 


.000000 

OoOOOO 

OOODOO 

OOOOOO 

.Dnooooi 

OQOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

oonooo 
-000000 
o n n o o o 

□OOUO0 
OOOOOO 
. onoooo 
OOOOOO 
— oqoooo. 


ic* the test for e^uAl 1 ^ between non- i ntegErs. may not be meaningful* 

..IF...! CoAb> 7 ( F.pR.0 I tE.rv* 0 • 1 .GO. Tx> .1 0 . . — 

•DIAGNOSTIC* ThE TEST for EgijAL , t Y fiET«EEn fiON" T NTEqErS M A y nOT BE mEAnINqFuL* 


000000 . 



OOJ 1 T 

.00 1.1.1. 

00111 
-0 0 J. 1-X-. 
0 o | l t 


j-9. 

: agnost-i-c-*- 
20* 


IF <COAlJVtFPRH «Fo* 0* J GO To ?0 
r H E — T- E-ST -F-0 R~ E 0 U A L-i-t-y- fl £ T # E£ N f„. 0 N - ! ^ T £ G E R S -M A-Y--N-0-T— B £— M E A N 1 N G FiJ t * 
IF t C0A3v (FPR2 > *Fq. n ♦ 0 I R E TURW 


. - .QOU / 

2 3* 

0011' 

2 H • 

0 D 1 2 l. 

- 2 f> *- 

00121 

2i>* 

on i 7 \ 

. 2 7_<_ 

00J21 

2ft • 


-0 017 1 - 
0 0 J 2 i 

00 1 2 v - 

00 1 7 H 

OQ 12/— 
00131 
00131 ■ 

001 3 > 
00 13 V- 
0013 1 
00 13 j — 


-C TEs-T— T *q 

C 

i P--< en A B tf-H-F'PR 0 -F-P J-V-FPR 0 ^ — » - 1 — H 6 -T-tjrN 

C 

C - IE 5-T 5 — p-A-Sfj-Eij — • — ^qO'F 5 — H Ay E — 0 EE-W o 

C t 
RETURN 

1-0— COM T-f VUE ' 

H2 a RO 

F-P-f»-2— a- F -p- fr t j 

RETURN 

R 2 3 V l 

p Pcf Z O . FPf?l 7— — 

return 

£-*»— - 


1 700o 
-17010 
17 0 2a 

1712 D 
4-7 1-3 q- 

1 7 1 r a 

- 1 7 l 5 o 
1 7 | 


Z N ^ OF COMPILATION: 




3F0R»US* r^ELZOH , F »OFLZOH 

FOR iE4X"05/23/7«^39;29;ol (2,33 

S f 0ROUTlNE DELZOH ENtRY POINT 000033 

S forage: u S F. 0 • C 0 0 £ I 1 1 . _ a 0 OPS 0.|„ .£> A T A < (l.» _ Q n 0.0 1 M _ B L A N «... C 0 * H 0 M I j. 2_L P Q.D 0 0 0 
cPMMQN_.aLP.CKSi 1 : : 

1.0 0 3 K E E_P7__. .00 071 2 ___ 


EXTERNAL REFERENCES ‘block, NAmE) 
10DM VERR'35 


storage ass i gNmEnt .‘.bloc* *.. t yp e , .relative locaTlomi _na m e) 


1003 

1 oao7o 

• jOo 3 

. .0 0 3 7 1 

OD 1 CH 

1* 

„ P.Q.10.1 - 

2? 

00101 

3* 

00 in 1 

cn D0 >^ 

7. .. . 00 10 1 ... 

R • .. - 

5 • 

A * 

H? ooioi 

^0 1 a * 

7 • 

e • 

00 1 0 > 

9 * 

0010’ .. 

. 10* 

00107 

1 1 ■ 

-001 iz . ... 

.12* 

oon* 

13* 

00 1 1 7 

19* 

00 1 1 s 

IS* 



□ 003 0007C1M NdgN 

0003- -OOOU 3 R j fcj 


iSH FMP.Ql O&OP — l — QOOOilQ — L 


-O-GOO 00000 - 2 — I-M JP-S- 


000 3 0007a* NNCOEF 000 3 1 0007U NZD 

- GOO 3 00322K-RR0 0003 --000000 RRN 


SUaROyTlNF OELZOM 

E.C-PJ.Z.-JL^NJ-7S-L,.R.I^ IX&1. 


,.Rs J5-LZ t 7 5 , ) ,-F_n HqL-1-7 6. 1 


1 7 I 8 q 

1-5Lq_ 


FPPOL( 7 a 1 * n O g N*NDGO*NNcOEFjNOcOEF»NZN»N 20 


C — 0 ElET E-.T-HE. ..7CR0.. ORDER. -HOLD. DEV ICE- 

c 

K 2 Lo ?_liZQ = 1 


N0<;D 3 NO GO - 1 

0 c OE F— 3 -NO C 0 EE—- — 1 

DO IPO 1 a 1 »NPCoEF 
100 FDpOL U >. *= FDPQL.U.H * — 
FDpOL ‘NDCOEF+1 1 0 0.0 
R.EJ.URN 


END 


1720 0 
-17 2Zq ■ — 
1 7 23 0 
i 7 2M 0 

1 72S 0 

J7 26 q 

1 7 2 7 q 
1 7 2G. 0 __ 
172’q 
.1730Q. .... 
17310 

_I7.12 0 

1 733Q 


000000 

-OpODOO- 
OQOOOP 
ooaooo 
000000 
. oooaoo 
oocaoo 
-oooaoo- 
000002 
000005 
onoo 1 0 

000015 

OpGO 1 7 
-001)02-0.. 
000037 


en; of coh p !iatjon: 


NO ...DIAGNOSTICS!. 
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? F 0 R ♦ U S iV p* 

- • for ;eix«o5 

5'Broutine OETCS EMtRT Point 0 0 0 3 *4 2 


- — STORAGE USED;... conn I > 0nU4 n 2. QATAl n) n n nn61 r C PM>-10NI71 n 0 Q o n Q 

COMMON — ^LOCX-S-J 

.... 1 00 3 - • KEEP I 0 .02.1 *20 

1004 KEEP I V GO 0 0 3 1 
JOGS C ROD 3 -■ 0 1 * M-S 


external references igioc*. nape) 

1 0 0 /V FRMTX 

■ - - •■‘00 7 -• CD'/* 

>0] 0 NERR3T 


.. ,. $ f 0 R A 5 r ASSIGNMENT la.L.^C K ' T-Y-P-£-»-RE L A T-I-V E.-i-OC AT.| ON r -N A.HE T- — — . - 

■ lODl 0030*5 II — 0001 — 000|Z1. |0L 0004 — O0O22S_l.n 0 Ot 0001 fiQ00-22-l’2SG 0001 - 00004* 133 g 

4001 00023.3 iSoot. 0001 0 0 0 1 >3 jS3 g 0001 000145 16HG 0001 0002rjo 1 7 3 g 0001 0002&5 1750L 

_j 001 00 0 3-1 A-ZOo^vt B-oO-1 QQO 2-HA-.2 qA q 41 0 OO-C-O 0 0 0 t-^~A 000^-^— 0T*U 3— AUTO- 0(]Q5— C-0 1*07 2 0 - - 

lOon q OOOOl* c OnOS l 01*1*2 CONJ 0005 C 000000 Cu 0004 000025 deg OOOO C 000000 oiv 

•lOoS t nl^Un DONE —COOS OOOO 12-I)0 — OOOf 000Q13 .- O i 00 OS OOJ01H-D2 0004- 000015 d3 - • 

1O0S nooni* c>4 0003 R 0000 ? 0 e 0003 0]*** 4 * Ey 0000 r n 0 0 0 1 2 El3 0004 c 000010 FIpTEN 
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CDJ.g»/2— 

fifc'fl* 

CKJ 

*%• 

.JTO'ZJoZ 

*** 

P'0'2 73 

A7» 

.. 0022< .. 

... 6 0*. .. . 

Q 0 2 a i • 

*?« 

00 2 3 i _ 

7 n * 

0 0 2 3” 

7 1 • 

_ 002 3“ 

7. 2 • 

0023 e 

73* 

-.00236 

.74*..... 

0 0 2 3V 

• 0 t AgNOS' 

0023V . 

7 5* 

0024 l 

7 4 • 

.-0024 J ... 

7 7.» 

00 2 4‘i 

7 A * 

00245 

7 7*. 

00 2 4'/ 

B n * 

0025f 

fl j * 

0025 1 

52 • 

Q 02 52 

fl 3 * 

00754 

fl 4 * 

0025^ 

fl 5 * - ..... 

0U?*(. 

4 6 * 

. 00267 

97 • .... 

002*3 

fl a • 

_ 00 2 4 4 

Q9 • 

0 0 2 66 

7 {) • 

00 2 7 !i._ 

’1 

0027 1 

92 • 

00272 .. 

— . 9 3 * ... 


If » * * J 

IF — act — f» * F_*_ 4 -^P'V^XP' u?. J K.) + Q *4 

*Jp5 £0, tn IT Jsiiyr 

JJffl-COt; XJ riUE 

DO 47n 

. 1 F _t.| *eo . J) .- GO- To. 4 2 0. 

p « p * r ( j ) 

. IF .<. A 3 5 ! A t .1 .)„> • L- J-L.T.IV N J Jf- ■'. A N U *.. . A B 5 i A 1 2 1JL» L I ».T.W u T y_L_G 0 — T. 0 

t:P 2 3 fl P 2 ♦ 10 

K ...g... P_/_La.3F 1.0 

GO TO 4 2 n 

Si- c Ou.t. i NUE 

the test for EquAlIT y rEt«een mon-int Eg er5 may not be hEa 

-- I F ( roAflv (P ) ..*EQ* n *0 t -GO-T -0 • H2n- 

IF [ A3S 1 s < I > * • $£• 1 *e-20 «0R # AB5 < aI 2 I > .GE. 1 # e-20» gO T 

P.il .-£4-0 

NP? n NP 7 - 1G 

4 7 0 - C 0 (.■ T I u U E - - - - - 

N M a X » M A X 0 < N S 2 l :: p 2 ) 

„. . p T 2 * p A RT2/.1.U. a* NM AX-Ns2 ) -t-.P/.lO*Q* • {.Nh AX-NP21 

052 = H!1AX 

ns a . . c - a n-u - n-uf 

IF * U Z E R r>S 1 GO TO 500 

-.--I F ■ 1 1, g A J t : ) ■ paRt2®g A INy*P ArT z 

IF * l. P H A 5 FT > pARTiafFxptCMpt-x^.niFlADDEG^SHlFT^MPART? 

Sna. comT i mu e - — — 

H S c A L E 3 H A X 0 < N S 1 , *.j S 2 > 

IF <Hs2.mE«NSCALF. )pAF?T2"PAKT2/lf].0**lNSCALE-NS2» 

O-A I P AR T.I .... ♦_ PAR-T2 

RETURN 


-4-XS- 


l J 4 • v •+ - 


:&PB,E4 0 
foi®Ci2'4* ■ 
(DP>'Fi2.7S 
-SKStt-* *S>- 

000275 

■ 00 J 0 2 

a n o 3 a 6 
OGO J2& 
000343 
-U003H4- 
G 0 0 3 5 3 
000355- 


N INqFuL 
0 **20 


000355 
000361 
■ a 0 0 3 77- 
000 R 0 5 
00041 3 
OOOH1 3 
00^^21 
000H60 
-000464- 
000464 
0PG4&6 
0005 1 0 
000541 
00054 1 
..000546- 
000570 
. ODD 6 1 2. 
000620 
0006*3 


eh; of compilation; 


2 DIAGNOSTICS 



ei-9 ! 


?for »us* r<?or ,fi Err ok 
for r e i x-os/zi/^-oei^o;*^' <?-, 3 >- 


si'Bro'jtime Error entry point ooo°t 7 


.SlO.RAGE.uSEQ* _ C OD E.UJ__0 n 0 02 LI p A T A-t-fl > fin 0 0 UL-.flL a N K c OMhO N <21-00009 O- 

— LO MMO .N_FU_aCK-Sl 


■ 0003 ... keep u-ooarv-U- 


EJ'TERNAL REFERENCES tpLOCK, NAnE) 


p-OCH RESET 

-roos- -nydos 

P 0 0 & M [ 0 2 S 

0007 • NERS3S 


S' 1 OR A Or ASSIGNMENT ( *LOC K » TYPE. RELATIVE LOCA T lON» NAME) 


rano 

r: 0 o 3 

nou3 

00 0 3 

l Oo 3 
0003 


nooaoo *nor onni i onruj22 d ebug oooo . noctons i fgj p $ 000 3 noooio iopen 0no3 ooooii 

1 - 0,)00n J . KOPE OOUJ. u -000o23. L FLT -OOO v-b - 000027 — N p n N A L OOO 3 - r 00003q NO T Y E T -- Ooo3 ■ 000002 

000003 NRpOLE 00 0 3 UnOuU'l M R 7 E R 0 0003 OQOOOS N X B OOO 3 00000* NXN OOO 3 00OQ0 7 

nOOOiii-giC-Pt 0003 ^OAOoJtS—pMG 000-3 0 0 0 — 90 &3 0000-L&— P-SbOSH 0003 0 00012 

OOQOOO STAGE 0003 L OOOO^ 7 yESmTx 0003 L 000.02R YESPCH . 0Qq 3 b 00002 q yESRAff 0003 L 000025 

t OJ00 2 6 YESS«b — 000 3- b~0G0n2-l~~Y ESS Rp- : — — • 


jopem 
nrclpl 
nxr 

-PVAR 

YESRLP 


00 } 0 1 1* SUBROUTINE ERROR 

0 0.1 01 — 2* CQHM0-fi2lKXEp.L.6/SlA^R- t x OD£j NR^Pb. NR-fMJb-E^TlR.jLE^.o-aiXO-. N> ^.NXR-. 

00103 3 • 1 IOPEN. J OP EN,P v AR.oNOm,PCPL.PFac»PSLOSHi 

.... . 00 103 V 2 yESmTx *yESRA.Y, YESsRP-i DEBUG 'LFLT-tYESpcH. YESRLP*-- 

00103 5* 3 yESsrL'NOnNaL.NOTyET 

0 0 * P> '* „ ..f>* L-OrJ CAL yES*iTx * Y.ESRArt » Y E SfRp * CEBU G.t bF-b-T-t-YESp CH .» yES RbP 

0010*' 7* I YES5RL*N0MNAL,fJ0TYET 

OQ l DL 8 * .vij-j XOi &-,-6 q.nl — Ki) OE ^ 

ODUr ?• 600 FORMAT I *1 FHROK CQbf * *,I3> 

Pom - in* — c a ll resct - — 

00117 11 • RETURN 


1827 0 

J.B280- 


□ocooo 

-90 0000- 
oooooo 
.oooooa 


182^0 
J 8300 - 

!831o 000000 

_1 § 3 2 o 000000 

1 8 3 3 □ 


1 8 3 H (>_ 

1 835a 

18360 -• 

I 8 3 7 o 

1 838 Q .„ 


anoooo 

oooooo 

000005 
000005 
000007 
0 0 0020 


EM* OF COMPILATION: 


NO DIAGNOSTICS 





i 6-64 


SF OR » U S * T <1 A T » F • £ s T H A T 

FOR SElX-OS/.ZX 7 8-08:301 


SU'JRO'JT I NE EsTHAT ENyRr POINT 000262 


s T 0 R A r } c . U 5 E 0 : C o D E J J. I _ 0 a P ? 6 6 ; D a_ ( 0 > HnO O' H_Oj _.b L a N.K_ C 0 Mil 0 M <21 OOnn On 

fO H M 0 N _ :) 1,0. C K S. ? 1 

— 0 003 _. . KEE p 1 0.00.02 4 - 

COOS KEEP? 000705 

0 005 KEEP l 5 0 Do 2 tO 

root crud 3 a i 6 i i s 


. r 7 fERM At references IrLdC* i ...na^EL 

... ..(’0 0 7. COA0V . .... 

raio n'ydus 

ij| l iJ I 0 2S 

C- 1 1 2 N E R R 3 1 


5 T 0 R A r, p ASSISIJiENT„_«0 LoC K..„TYPE i PE LftT 1 VE. LOCATl ON t ,_N AmE >. 


c_0 a i c.OP. P..3_1J..Q.L pool .. .onon 4 I . i Si ajaoj qoqq7. 7 .> 2 0,1 00 04 oon 15 8-23.1 ocuu ....-O-O o is x ... J ou- 

rool OOllto 35 l 0001 0002*2 ROL 0001 000 2*42 &0L 0000 000000 6odf 0004 L 0 1 4 J 1 3 AUTO 

root. c . Q 1 4 0 7 2 _ 3 O.i07„..s_Oi)O.Q.9.D.....c.D.A8V 000 A_.JL.. 0.1 b . U 7 XoN J 0 . 00 . 8 . l_000.LL4_XP5.LaL QOO 6 ..X-D 000 00 Cu .. 

• P005 00002*4 OA 0005 000j 3 0 nCBLBL 0005 DCO 13 * DEgI-BL 000* L 014U0 DONE OOOR C 00D226 EA 

fO 0 5 D 00 I *4 6 F H A T 000 s . 0001 3 2 f mT .. 0004 C... 0(40*40 FprO 0006.. c .0 I 4 0 *4 2 FP R • _..l 0006 C 016DRH Fpr2 . ... 

root c 0 1 4 0 H 6 FRO 001)4 c 0l4q5g fR 1 0004 C 0140*2 F r 2 , 00q 5 0001*2 p A 0no5 000143 f7 

... ./■ i □ 5 n no i o n _ ,i d j doo! 30Di.oX_.inG oooo ooddLoLiw jp.s odor c-DuS7.2_.kd dooS. — oaoi 68 la a el l 

CJoS 0072 1,3 L A 0 r l 2 ' 0005 0OQ2 34 LA R EL 3 0003 O0OOOQ MaXIT OOD 3 0000 0 1 M*ElG OQ03 00002*4 MXejGy 

f 3 0 3 . 'IXEST „ .._PaU 3 qn0 O U 2 mxFRM 000^ OGUOD 3 0003 ■ 00 L'OOR _.M X NCOf— . 0000 I 000005 MXNCT 

("JO 3 0 0 70 2 5 MXUCV 0303 000 ij 0 4 ^XM£. 00 Q 3 OQOOO 7 Mx;-<Eo 000 3 oOCJOlQ MXNFI ’ 0003 0000 1 J M X N G . 

.... TOO 3 0 0 7 0 I 2 .‘1 X fv p H .... 0 Q 0 3 OOOp 1 3 . mX*'PP 000.1 0000 1 4 MXrjOPT - OOD 3 oOUDlS MXNSM ..... 0003 . 0000(4 MXNSP - 

f ; 0 0 3 0000(7 rtXNTM OOO 3 0000^0 mXNV 0003 000021 MxuZT O0a3 000022 MXpOLY OOOR I OOOR5S NA 

0.0 Q 6. ...j X 1 4 j a Z. .N or. CO 0 n_ 4 O.Q.-R.S.R— AlE iG 0 004-4X-1. t.l-Ql—N E-S-J. 00 0-4 0-L4O 7 6....NFRQ 0 0 0 * O I A 0 7 7 N Ff l : 

riot 0 1 4 1 on !JF p 2 OOUU 0008*7 Nj ' 0 00 6 016 10 1 NIT ER 0 00* n 1 6 I 0*4' NKOOE OOOR 000*456 NR 

„.. rPQ4 I 0 1 4 1 CI 3 ilREG 7334 J ...3.1 4 10S_ nsTAR.X 0 0 0 6. .I...0 I 4 1 06_ N T.I ME 0 D 0 4 _e— 0 l 4 D 5 8 p R 0 0006 c 016 q56 PrJ __ 

root c 0 l 4 0 6 0 PR 2 0 0 1) 5 a 0 0 ri 3 R P34 DOOS c 000000 REGloR 000 * l o 1 4 l l R REGSEu 0006 L 0 16JJ1 R e 5 T RT 

c30 s . 0 0 3730 RID OOfJR C-D00Q03 ROOT DDQ4 C.014 q42 rd . 0004 c-.O^D 44 R I - - 0004 C014Q66R2 

0 0q4 c 0l4Q7o R 3 0 01)5 OOD0IR5FACE 001)4 CO>4o7Ry OOoS' OOUCJlO WIDTH 0 00 5 00 0020 Y1NC 


00 1 0 » 

00 103 
CO 1 0 3 
00(03 
"01’’*^ 
0 0 ) 
roinr 

PO 1 Of. 


1 * 

2* 


SUrROijTIne ESTm^T 
CO -I 


3 * 
H • 


/ • 
A * 


l H X N r T I rtx N G » u X NPH t M X Np p » M X N 3 P.T » r. X N S M , M x N S p » fl X N T M t 

_2 __ . . . m X'if V , ^ X M2.T » MX P 0 L Y , 'i X E S T.».« XEjGT.HxNCV 

c 0 M n 0 M f < r F P 9 1 * 0 0 T 1 7 5 > ■ C A < 7 5 ) f w; I G » ,'J A » MR iNl l 7 5 ) , k 0 t 7 5 ) 

CO.-PIEX HOUT ,EA 

c 0 « d 0 M 2 < E E p 1 5 / R E G 1 a N t R > .AIDth(R) »SpAcE<R> »Y|mC<H ) > 

. D.A. < U J . R (0.4 RJ[ tp-76 (.341 1, I D Ei <7 l.*.10c ( -7. 1 » CP SL BL ..... 


18390 

1.8*400. 

4 84 lo 
.* 0R2o 
1 B R 3 0 


J B.R7q 


OOODOO 

.DaDQUO.. 

oooaoo 

aocoao 

OnOOOO 

OOODOO 

□ouuno 

DOOOOO 




00 1 O'’ 

00 J Of— 
0 D I 0 7 
.0 0.1 1-0 

no i i r 
o u i i r. 
on n i 

- o 0 1 II - 

non? 
..oo 1 1 ? — 
0011 ? 
•CIO 1 1 ? — 
00113 
DO 1 1 
DO l 1 s 
-oo i ic- 
on i I *< 
-001 11 - 
00 11 (' 
.00117 • 


9 • 

10* 

1 1 * 
4 2-*- 


1 8 4 6g 
9 4 9g- 
1 0SD □ 
4-8 52 g- 


C program cooing 


1 3* 

14* . 

IS* 

. 1 6*_ 

17* 

-1 **— 

19* 

■ 2 0* ~ 

2 1 * 
22 *- 
2 3 * 

-2 4 * — 
25 * 
2b* - 
27 • 

2 a ♦ 


2 oCQLBL .DEgLbL.FmT f 1 *> ,FMATU2 j ,F& ( F7.»l AbCL I ( ZO > * 

.3 — -L-AOeLZ^O-l »LA Q EL3{2n> ■ * 

COmPLCX REG lnN „ ' 

— ^ — g-U4A-n- t -6. Q .).. r r P^O » Fp-R-l-t-FpR?*^ Q^» f R * « F R 2-tf4Tfl-T P R 1 • p-R*-t 

1 R u *Rt,R2»R3iaiU,NrPO,MFPl»NFP?.NITER*NCT,NREGiNKOOE, 

.2 - — . UST Ar T » »T ? mE »*}EsT tOONE i fiES Tr T , C 0H J » Au'T O-tREGSEf" 

COmPLEX CO»FpRO,EPR1»fPR2,FRO*FRI*FR2,pRO,PR1»pr2, 

-1- rO * f? 1 , R 2 » R 3 , 8 , U- . ■ — ! ! 5 7 0 

LO G lCAL qONE »REsTR T ,CqNj * aijTO (REgSEl 18570 


1 8530 
lttSlO- 


DOnE b . false* 

I F * H E S T R T >- ' GO- 'TO— *4 Q 


4fl56o 

1859 0 

1 86Do — 

18610 

1862 0 — 


OO0ODO 

oooooo- • 
oooooo 
-on-oooo — 
Orinoco 
■ OOCOOO — 
0 0 0000 
-oooooo- — 
oooooo 

-OOOOOO — 

oooooo 

-OOOUDO - - 

oooooo 
-oooooo - 


c* * • • • 


first estimate or normal restart 


U o (•1*0*1 

I F (I .NOT ,cOMJ > *0R-» 1 NSTART*<iT* l-»4 -GO -T 0 I 0 



a o l i 7 

J) | | 7. 

2 9 * 

3 0 


00117 

31 * 

— 

non'/ — 

1 2 * 

• 

00J21 

33* 

— ... 

00127 - 

3 4* 


DO 1 2? 

35* 


n 1*1 i 

3 » • 


00123 : 

37* 


00 12*- 

3D • 

cn 

n 0 1 2 '• 

39* 

CTi . 

0 D 1 7 J . 

40 - 

tn 

0 0 l 

4 l * 


.0017 

.42* 


0 D | ? ( 

43* 


C 


SELECT CONJUGATE of PpEvloUS ROOT As estimate 


u * 1 . 05*C0N JG I R 3 ) + (.li.il 

RETURN ' 


10 continue 

t F t nEs 7 *GF*NAl -GO-TO-20 

c 

c **• *• 

„c 


select user input estimate 


OD 1 27 

oo i 3r 
0013 1 

00131 
_. 00 132.. 

00 133 
• — 001 3 3 
00 1 3H 
. 0013- 


.. 4 4* ._. 

' 95* 

'OtAgNoST 

H 6* 

4 7. * 

48 * 

...... 4 9* 

50 • 

. 51 • .. 


I 5 CONTINUE 

U m 1 . 0 5 • F A ( N£ S T 1 ♦ (»01*«0i> 

I C* --IhE....TEST _.F.OR .EquAL.n. ¥ ._sEl w EEH„f40N~mTE G ER.S^MA VL._N.OTL-BE-MEANlN S F U l,-*- 
1F (CnAOvlEAlNeSTl) *EQ * 0*0l U« t 0 . , 0 • > 

RETU RN 


1 863o 

oooooo 

— 1-8-6 4 Q ■ — 

■oooooo 

1 8 6&0 

oooooo 

- — 1 8 6 6q — 

oooooo 


0 D n Q 0 2 

— 1 8 68q 

000004 - — 

1 8 6 9g 
1 Q -1 rirt 

000004 

187 10 

000004 

--1 872o 

000004 -• 


onoo i 5 

— 187H 0 

000030 

1 87S 0 

000030 

i mA™ 


I877 0 

000034 

1 8 7 0 0 

000034 

1 8 7 9 0 

000034 

....lasoo 

000034 

1 88 1 o ’ 

' 0 POO 3 4 

1882rj 

■000034 

1 8 8 3 g 

000041 

1 8 0 4 o 

00004 1 - 


000043 


C 

C — 


?0 COnT t NUE 

1 F < < NF I G ' FN*Ol .OR. ( MS-T ART .Gy* 1 ) > GO TO-^S- 


001 3 r 

52* 

non --- 

5 3 ♦- 

no 1 3 r 

5 H • 

noi if. 

. 55 * 

0013/ 

56* 

_ DO 1 4 1 

57* 

00 14? 

SH* 

n n i »4 3 

59-* . 

0 0 l 4 ‘i 

60 * 

. ... OCTi 4 5 

6 1 * 

r. o i m ! 

6 2* 

n o 1 4 c 

6 V* 

no i he 

6 4 • 


C* * * * 

C-— 


accept p p f v i cm s root as estimate 


1 a a 6 o - 

l 8 8 7 o 

1 B68 0 - 

189*0 

4 18900 

19910 

1 8 9 2 n 

1 8?3q 

... . 189 40 


JF tCfI A Hv(ROOTtNE| G )l *LE* t 000ll GO TO 25 

U ,05«r(10T-I-NEJg) - *— * • !-* • 1 J 

RETURN 

’£_C-OnT-I wUE : * 

o e < o • i n * I 

-RETURN- -— - - ■ ■ - “ ...... 


iOCULUS 0E FUNCTIONAL VALUES I MC R e A 5 I Ng 


1 896q 

1 0 9 7 0 

1 898 0 

1 8 *9 o 


000056 

—000073- 

000073 

000073 

ono 0 7 7 

- 000077 

0n0077 

-00007 7.- 
GoO D 7 7 
anno77 

uoo i i i 

- 0 o o 1 2 4 
000 1 40 

- 000144 
OOD I 44 

- ooniR^ 

Ono 1 45 
n n f; l 4 5 
000 145 



00 | H7' 

67« 

n o i s r : 

69 * 

OOtSc 

69« 

. . 00 \sc . 

.7 0 ’ 

no i sp 

7 1 < 

ODISC . 

72- 

00 1 S 2 

7 3 - 

. 00 1 S3,. 

_ 76- 

OCItBS 

7 S 1 

. P015A 

. 7 & < 

0 0 160 

77' 

a □ i a z , 

78- 

00 l 63 

79' 

___. oa 1 6': ... 

. aa< 

00 166 

6 1 1 

.. 0 0 l 6 *i 

... 8 2 - 

0 0 1 6 U 

b 3 

00 166 

. B v 

00 1 6 S 

8 S 

... QU 1 6 6 . 

P 6 

00]66 

87 

... . DO | 66 

.. ... FP' 

00|66 

89 

0 016 6 

9 n 

00 166 

91 

L.„ 001 7 C, 

. 92 

00| 71 

93 

00172 

96 

OA 00 | 7 ? 

9S 

.CM 00 172. 

96 

00 | 7? 

97 

00 1 7 2. 

5 ir 

001 7 *< 

99 

.. .. ODI75 

- Too 

00 177 

1 0 1 

o o 2 o r 

.... 1 D 2 

0020 1 

103 


30 C 0 u-T -1 N U F . 

0 « ( » I i 0 • > 

|4LU4.Es-I~*.b-T-*-NA-l — G 0 ~tO ~ 1- 5 — — - 

C 

take: ESTIMATE, from nE x t region 
35 CONTINUE 

XJT-LR E45.R14— WJlfcaJ HW-gJS-t-1 - 

NT i MEsNT I HE* 1 

I FJ.N T j M E.* (5 !.• H }.. GO- T 0- SQ 

I F M Nr EG. gT. *! > .OK . (MREG.Eq »0> ) MR EG* 1 

. . rEgSPu* *TRUE • 

U°rEG I ON t Mf?Er, 1 

: R.E-7-05M — — 

c 

C * • • * * SPECIAL RESTART 

HD CONTINUE 

I F. ( HcX.S-T-.-MJC NC-J-J— GT1--TQ.-3X) 

C 

C«**** , RAptO DECLINE IN FUNCTIONAL VALUES 

.TAieE. PREVIOUS ITERANT, as F.ST.IhATE. AND^-rE d uCE. BETA 

c 

D-juUDL, Q— l.TQ : 

U“r 2 . j 

return i 

C | 

C?****. ..... only... FOUP—RFg I °NS- ArE_ A V a I LABLE- 

C | 

: E.D„CQkT_J HU E. - 

D 0 r ; E * . T * II )• , 

6po fochatim’ho more estimates available can not converge' 1 

end 


!9oOo 
4 -9Q1 o- 

~19q_3-q~ 
1 9 0 H o 
-l .9 o S o _ 
1 90*0 

■ 19 0 7 0 - 
1 9 o 8 o 

-L9 0?0- 
19lOo 
1 9 | 1 o . 
1912 0 
I9l3 0 

1 9 ] Hq 
-L9 | 5 q_ 
19] 6 0 
.191 7 0 
1 9 1 B 0 

■ 1 9 | 9 q 

I920o 
-1.9 2 I d- 

19220 
1 9 2 3 a 
1 9 2 H o 
192^0 

1 926q 

1928q 

- 1 9 2 9 q 

1 9300 
_1 9 3 1 0 
1 932o 
-1.9330- 
1 9 3 H o 
: 193S 0 
1 9 3 6 a 
-1937o 

1 9 3 Bq 


_END. or....COMPI.LATJ.UM. 


I . . 0.U 6 U aSXK S-* 



m 


+F 0° t 'Js FI* I T I F * F I X I T 

FOR $£ 1 X-05/23/7^-0a ; 30 ; H A— I 3-1-3+ 


SUBROUTINE F i h i t entry point OO 0 U 35 


STORAGE- USED : -■ C 0 0 E-U .?_Q.n 0 D S.L1— p A TA.I.Q i._ QnO a 12 1—6 LaN K-c-0 m m 0 K-t-2. > npagOc 


EXTERNAL REFERENCES (BLOCK, NAME) 


0003 X PR I 

- — 0304 — CDV* 

0005 N t R R 3 i 


STORAGE- a ssl GHSLEfilJ. i.LtOC-* ♦—T.YP.£.,_Rf tA-I-I.VX .. LOCA-t.I-ON»_ UAMt) — 

P 3Q0 0 Of! DOS -I NJPS onu 0-1— 000002— NDI-F OOOP- C— OOOOO Q--SC — 

00 | n.l l* ^;&R0tfT.^E^-F4 X lX^. r NX^U-) 

00103 7- COr.PLfX X.Sc 

00103 a* C 

. 00 103 -5*. C -PEScAl^ THE- papa MF.TEw-vaLUE — 

00103 A* C 

— : 0 Q.1.C.R 2 A : 

OOjnS 8* IF(N0IF*E(3.0 IrETupN 

..CD- 00 in? -• . 9 * S C L B I 0 * 0 * * NO I F : 

00 1 1 0 j n* sc*scl 

0 0 117 12*- li X b N 

. . ... 330 1 1 2 I 3 * — P f. T O R N-— — 

00 114 1 4 • END 


EN; OF.. COmP-I LAI.I.ON {.. 


M 0 _J> I Ag HO.S-T-LC.Sj. 


GOOD- r- 0 DO 00 3-SC-l- 



2flx7-0 Q OOOGO 

000000 

207 1 0 000000 — - 

2 0 72q ODOOOO 

2073o OODOOG 

2 Q7 onouoo 
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2 ~ ; — H o » M x ♦ H A? T • HP L o S » ^-0 o T ♦ HS T A R t H I C t-HO Ec * c ff * H c c r, ’ 

3 HATTiHRATE»HAcC*HFpOtMFpNiHFPQ;, *HFGO»HFGW»HFPOD» 

COmHOn/kEErR/ |<00T(?5>tEA(75> f NrlGiNA»NR»NIt75),KDt75) 

-■CO pPtE* R-0 0 T-,-£A~ 


38h6 0 

3847q 

.38 4 0 g- 

38R?o 
1-8 SO g- 

305 1 0 
- 3852o 
3053q 
--3 0 5 8q- 
3 8 56g 


COt-iMOM/KEEp^/sTAr, R»K00E*NRcLpLtNRpnLE»NRZEp0«NX0iNXN,NxR, 

-1 1 UP Fft} .J0Pjrf«J,PvAR,PN!0H | PCPL,PFAc»P5 l -0SH 1 '.. 

2 Y E SrTx'yESRArt,YFS5Rp«oEBUG»LFLT»rE:SpCH.YESRLP* 

-3- y ESsrL*NOMNaL,N0TyET 

LOGICAL ^ Y E SMTx*yFSRArt,YES5 R P»D£6UGiLPLTtYESpcH*YESRLP» 


COyM 0 N'Cl*u 02 / H.CDO I »OPTTyp ( 3 J , rEHP*.D . VF !LT < 4 I »REq£ST , 0 PT INP • 

1 C'P T l ,npT2 ,0p T3 , . TEMP 13 1 IM % f e m r | 1 1 6 J *VAt { 8 ) r~ 

2 f«lMPn,NTMpQc , MTMPietNFILTillU],JJ< ( U,KK;<*|) ( p c (H) 

-«EaW *8 - Hat ANK .r-HF ! (. T - ■ - 


input estimates to The continuous *>atrix 

ThE T r s t fop K q m a L 1 T y rEt^FEN nOn-tntfqErs r. Ay not bE mEanINqFi.iL* 

• IF- tppTlNp.EC-hKETdl GO To- 10 - --- - 

ThE Tf$T fop E q u A l I T y 0 ET a EEn f.'O N- I NTEq £ R5 MAy NOT BE mEanIN s FuL* 

+F- 


33590 

30600 

386 10 
3 S6 2 o 
3863o 

-3 8 6 4 q~ 
3 8 6Sq 
3 0 6 6 0. 
3867 Q 

3 0 6 9 0 
-38 7 Du- 
38710 
3872o 

3 8 7 3 o 


CAN No T INTERPRET T H E FxTImAtE REyijEST 


NO?E o 25 

~n Et-U 0 N—1-— - 


rETaIsj PREVIOUS case fsT I MATES 


10 CONTINUE . 

4 F — l.N a ,-c.q->-ClL-QC| To I 000 

return 


-INPUT hE S P T - OP E ST-I MATES— 
-2-0— c 0 <- T-l-N U P- 


; E t. 0 < 5 » 5 n p ! M A 
. 500 .. f Os, l A T < I 5 )- — . - 

IF t N a • L T • l .Op* MA.GT.mxES t ) Qn TO 2000 

RE A 0.1 5 . Snl t EaU » , 1*1 i HA. I 

SO I FORMAT t &E I 2*5 1 

1— P P T UR N 


MO estimates IN phEvioijs CASE 


30 7Hq- 

3875 D 

- 3 fl 7 6 q 
3877q 

- 30700 

3079q 

38000- 

3 8 fl I a 

- — 38020 

3 8 B 3 q 

38 8 0 0- 

38fl5 0 

3BB6q ... 

3 8 8 7 0 

3 0 fl 8 o 

3 8 690 

3890 0 

389 1 0 

3892q- 

3893q 

- -30940 

38950 
.... . 3896 a 
3 8 9 7 q 
3 0 9 Q o 

3099q 
.... 39000 

39n 1 o 


onoooo 
000000 
000000 - 
oaoooo 
-OoGOOO- 
00 DO 00 
OOOOOO 

oodooo 

^oooooo 

OoOOOO 

'OOOOOO- 

OOOOOO 

oooaoo 

OQCQOO 
on go oo 
oooooo 

-oooono- 

ooooao 

0D0000 

oooooo 

oooaoo 

oooooo 

-oooooo- 

oooooo 

0 D 00 0 0 

oooooo 

000003- 
0 0 0 0 0 3 
onooo3 
000003 

000003 

o n D 0 0 7 
-0 000 1 1 
onoa ] 1 

OOO 0 1 I 
onoo 1 1 
0000 1 1 
onoo I 6 
0000 1 6 _ 
000017 

onoo i 7 

ODOO 1 7 
OODO I 7 
DOOO 1 7 
000023 
000023 
000030 
000030 
000046 
000062 
-000062 
000062 
000062 
000062 


<*41., 



.10013 -C.0JvTlf4UE.— 
K0 C E » 2h 


C NUm\F.H Of ESTIMATES OyT OF RA N <$ E 

2oon continue 

je 2-7 — 

RETURN 1 


3 ' 9 o 2 a 
3?0S 0 - 
390^0 

-39 q5q 

3 90*0 
^3 9o 7 o — 
39000 
.3 9jt 9 o - 
39 1 Qo 

-391 1 0 

391 2q 
.. 39i3 0 — 


of compilation: 


? diagnostics. 


6-87 




. > .j - r 


rtCTBv 'ieirXv--0S'^/^'3»^7?'<‘-.'J‘«'5 3'3>tZ'*-- l»7> # J» 


gr^-o-UTPwt pri-ptfix EN T R r point 000077 

S TO* 4r,E USED :. .CODE. LI )._0n0.1 a?. L_D A T A.t.O L OpOOD 4 ;.. BL*N k . C 0«M0N(2J._ OOnnClO 

C 0^ M 0 M — ftL 0 C K-S-i * 

• — - 7003 KEEP 2 00 DO 4 * 7 — 

"OOH KEEP 1 6 00003 1 

>005 - C PUD2 - 000 H b J 


EXTERNAL REFERENCES <RLoCK* name > 

. 1 0 0 <S fi E N H T X 

•»0 0 7 RAAMTX • 

10 1 0 M £ R « 4 i 

— -iO | J FI E R R 3 5 


5 T 0 R A 0 r ASSIGNMENT IHlc.CK» TypET, RELATIVE LOCaTjON. NAME! 

n 00 1 00002* lOL OOUl 0000 5 5 ! OOOL OOOl 0000 33 ^OL OOol 0000*1 20QOL 0 0 0 1 0U0044 3 0L 

lOOb— ■ pon0 2 4-JA«^*l OO-QS — — gr^gpCu-flCa 0-0 0-4 — b — D 0 0 0 2 ^- — D E'0~I7g 0 00-3— p— 0 0 000-2— D-HfMfcT 0003 0000 37 HACC 

• 1 0 0 3 OJ002S HAST 0003 OO0n 3 5 H 4TT 00Q3 q 00000.0 HbLANk 000 3 OOJQU 4 * HBL* 0003 O0D034 HCC« 

.. .. : 1 0 0 3 000033 .HCn - OOU 3 -Onnn 3 2 . h pEc 0003 — pQOO 2 7— 0O0 3 -~-C0OOO* HEST-I Udo3 000043 HFGD - 

1 1 0 0 3 0 0 0 0 4** H F ij N 0Cl03 OnOo**0 hFPD 0003 OOOOHb HEpDO 0003 fi000**2 HFpQN 0003 0D0041 HFPN 

... :iOn3 ff RCOOIn hqEnE — np,0 3 - - •inDf* 3 1 - H ( Me 0 00 3.... 000005- hkEY 000 3 00 0 007 hmaTR 000 3 00001** HNEiV 

■ l003 r r, ( i00«4 hM 3 mI nn(J 3 r)OQ<.. 1 5 h m Y qu OOU 3 000023 H rj OOo3 000026 HPLUS 0003 000036 HR ATE 

; ! a j 3 . * ..o n c o i i M r a -* r.rioi -mur, 1 2 -he e t a n c 02 00 0.0 0 oo 3 - (4 00016 -hr 0 0 t 0 n 0 3 - ~ 0 0 0 rj 1 3 hstan- 

m,1o 3 nuO03(j mSTAH ' POO 3 OfO^U ||S ! C 0D03 01.100 21 H'J7 000 3 pQU0?2 HS^e 0003 00002** HX 

: i a 0 s co 0.7 7S ii ..-.noon ...nnor^o rur'’ hock oocoio -iopEm: 000 5 . .-oonJol jj ... 0004 ooooii jopen 

• 1 0 □ S 0 c 0 1 n 5 K K 0 f ? U ** 1 0 0 U n 0 I K 0 D E 000 it L n 0 0 0 2 3 LFlT 0 0 0 5 000074 MFILT UHO 1 * L 000G27 NQhnAL 

:)f)Q4 L nor'n3|j NOTyET ._OCO‘* . . ,fl00e02 jjRClPL OOQti... . 000003 N JpO LE 0004 0000 0 44 NR 2 ERO OOOS 000071 NThpO 

moo 5 00 0072 NTMpUC OOO 5 0 DOC 7 3 NTMpIC 0004 000005 N*8 0004 00000* NX N 0004 00000 7 NX R 

o3ob .1} 00 D 0 2D.-Q11.T J.NJI OnO-b 0X1 Q.jq. 0 3_0 P .T T Y-P — - — OOOb__R — 0 00 0 2 1—OpT L . ., 000 000022. OPT-2 OOOS OD0023 Opt3 — 

nOob onni 1 1 pc on04 nnoni** pcpl ooo" nooois pfaC odd** r o 0 g o 13 pnoh oooh ooooi* psloSh 

nOO* 4 P nCC0l2-PVAP ncoS fl pppl-?- °E f JE5T 0D0« OOOOOQ stage .-- 000 5 00000*... TEMP 000 b - 000025 TEMPO 

nOO b DL'OO'ib TEMPI OpuS 0(inr|O5 yAL OOOS nOOOlI yFlLT 0004 l oOOOl 7 yESMTx 0004 L 000024 YE5PCH 

i 1 0 0 4 L D00022 -YESRAi'J DOO 4„ L . . a 0 DO 2 *... y E S RLP. 0004.. L (70002* . Y ES^RL 0004 n 000 2 .1 yESSRP 


o 0.1 na l* su»jmuii.Mr i npm.TjcxaJ 

0010* 2* COmMOn/Kcf p 2/ HBLANKtOHFlL T .HBLXiHKEY*HESTI.HMATR»H6ENE.HRA^» 

n o j a 7 . .. 3*.... .. 1 . h R E T A , HST AM , E V • *N4 Y i?U , H ROQt , HR OlL . HS 1 C , HS 2 , HS 4 B » 

?Ojn» h • 2 hU Mi X » HAST MiPLllSM.OOT, HST AR,M|NC»Hr>EC*HCft ( HcC* » 

'C'JlO • 5* . 3 (,ATl *mRaTE I hA c c iHfPO * HFPN »HFPU4 »hFGD »NF&M iHEPdO * 

no 1 n ' * • ** liMl"! 

?0 1 0‘- 7 • oOhPLE— Pac.C-l5LlX.N . nui A:j< ♦LUlF-iLT- 

1 0 1 n r - n • c U ;-.mO N / * E F P I * 7 5 T A •*, F , K no F • NR c L P L , N rip OL E t NKZ E .’■'0 • N X fl I N X N I N X R . 

CD \ n 1 • V • 1 I C 1- r M , j 0 P E N , H v A R » ri N 0 , P c p L. t P F f. c * P s L 0 s i< I 


J13L25l£j OdOOOQ 

432*0 000000 

4 3 2 7o 000000 

4 3 2 1*0 0 0 000 0 

...432?q 000000 

N33UU OOHOnO 

OOU uoo 

4 3 3 2 o ODOOnO 

4 3 3 3q 00000 0 
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0 D | D S 
._nojn!j. 

9 o i n a 

_0Q 10fe_ 
00107 

001 f.\7 
GO 1 a' 1 
0 0 I 0 7 
0 u i n v 
noinj 

00 in? 


00 I ! n 

21*. 


P D l 1 1 

22* 


0 0 117 

•diagnostic 

♦ 

001 IP 

23* 


no 1 1 ■! 

*D I AgNQST IX 

* 

■ 0 1 14 

2 4* 


ho 1 1 1 . 

, *!)i agnostic 

« 

00 1 1 A 

2 s * 


no 11 a 

. . . 2 A* 

C — 

001 1 A 

27* 

c 

f)G 1 1 <- 

2 A* _r. 

00 11 A 

29 • 

c 

. ... 0 D J ? ! : 

3n • 

— 

00171 

31 • 


. 00121 

3 2* ... . 

c. .. 

OQ l 2 J 

33* 

c 

. 00123 

34 • 

c 


00121 
00 3 2 : 
00 120 
00 1 2 £ - 
P D 1 7 S 
00 1 2 '-' 


■ no | 2 r - 

H l * 

C 

INPUT the 

_ . 0 a 1 2 s 

. 42* 

c_~ 


DO 1 7 / 

43* 


20 COf.TlNU 

00 1 27 

4 4 • 


YEsMTX.. 

. 0 0 l 3r 

4 S • 


yEsRA it 

0 013 1. 

44* 


rA^.l (J.E 

00 13 7 

47 • 


return 


2 YESmjX , YESR^W^y^S^RP ,[>e9UG»LF 

— 2 — -y ES?pL »UOMNaL,NoTyET — - ----- 

LOGICAL Y^SK’Tx»Y^5 R ^^,VESS^P»0EBUG*Lf 

1 Y-£-S«^Rl,-* no MiJ A L-, M 0 T y E-T 

co^mon/crud^/ p C D f 3 1 *t)P TTyp t 3 ) » t£Mp I 3 I iVFH 

]_. .. fjPT 1 ,OPT2 ,OpT.3 » ANrRM , TEMPO l-ll 

2 IsTtipo »NTMP0C » [jTl-lP 1 C ,NF 1L r » I I 1 

D E.T F.B m I N F . M A.Tfl.U~ I.Jj F?-1JT — » EJ.H.Qil 

PflOH = OPT 2 

The. test .for .Equal J-Ty Tc.EE N_jj On?. J NT.E gER S— H A' 

IF t OPT I Mp .Eg . h n Om I j GO To lO 

.ta£_JLts T.^Eu.e_£.OuA i-t J.x_a£JJl££isL_MO wj^i Jn.I£ G Ej>S_m a. 

IF < OpT 1 NP . FQ •HGEHE > .GO To ?0 
ThE. TfS t .for. F q U A l 1 t Y 13 E TtfF E N. u ON*. I.N.T Eg E R S . M A: 

IF ( 0 P r 1 N P * r J • H K A VI > GO TO 3 0 


gA-N-N fi l T MI Fpp.R E- T ~ NA-T-r-I-X --4-NB uJ-~ME-T-h01 


K Oq E « ... 3 ?. - ■ 

RETURN 1 


L0_ COutliiUE — 

IF 5 .NOTiYESMTX 1 GO To 2DQO 

RETURN — 


input the nominal matrix in general form 


d o 1 j r. 
ra 1 31: 

n 0 1 3 7 
00 1 3.' 

PC 1 3 P 
r 0 1 V- 

r-0 1 3 *'■ 

00 I Sc- 
oot 37 

COl 37 
...0 0 L 3 7. 
00137 

00 13^ 

PC] ** ; 

0 014' 
00141 


4 a • 

4 9 * 

so* 

5 1 * 
.5?*. 
S3* 
54* 
SS* 
5A • 
S7 • 

53 •_ 

SR* 
._ AQ* 
A 1 • 
A?* 
A3* 


.CREaTe N 0 M I N a L . HA T R I X_ FROM ..RAW DAT a. 


Y E 5 flT X 0 .TRUE, 

YE^RA.V .TRUE. 

C A L L RA.YmTX it iqOoi 
R E I.UR.N 


ERROR IN CRFATJNG the NOMINAL matrix 

pno COvTlr-iUE 
RETURN 1 




n n 



— f> « € v-l e U s- M A T P ! x E <S U fT'^-T E O P 0 T- w 0 N E~ E X I S T S 

'66* C 

J • ? ^ 

l 69* K Or) E « 33 

; 6 9 « PF.rUPH — 1 “ 

'•• 7 0 * E N Pl 


t^-OE-C O M -Pi IA T ..I OA » t . — X --rvi-A f- T NO^ T US* 


H389o OOOOSS 

*H390o OOOOSS 

H 3 9 1 o OOOOSS 

-M 39 2q “00006 \ 

** 3 9 3 □ 00006 1 

-H39‘i 0 — -000062 — 

*»39Sq 000102 
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sTTft rout"|NE InpNYQ Entry POIUT 000 1 **5 


5 1 3 R A fi e USED; C o P E ( J .L.0 .q 0 1.5.1 J _ qA LAJLqJ. ... 0 o.O.O ILL. 6 K. HH.K- X 0 il M 0 N i Z >... Q D-D Q 0 CL- 


( Jrt MON P L 0 CK S ; 

. L'OO 3. _ ...KEEP|_. 00.002 6 

rOQH K.EEPZ 000017 

I 30^ K E E P 3 ■ 000 102 - 

( 006 K E £P l 6 000031 

_i,D07 OUJD2 00(3-14-5 


external inferences ipiLccX, name) 
ram nrou* 

_u a 1 1 ui-a 2 s 

ro i z moii 

.. no | 3 fJERRMS . 

r o 1 1 NEPR 3* 


__ _5j_pR A 6 p A § Si GUMEn- 


n (3 o 0 3 o 

<100013 
0(1002 2 
no n 035 
. C 0 0.0 3 2_ 
000 0 ‘I') 
000 0 3 3 
o o on l 5 

0000 1 7 

00002(3 
_n a n q 7 5 
OOO l 0 5 
QOOO 3 7_ 
000003 
ooonn 7 
uoon i *♦ 
<vjn 12 I 
n jn o.3|> 
n nno7 ?. 
n-naZn 
o o g o 7 a . 

0 0007 S 
no no i 7 
non oo6 
n 0 f 0 1 7 


to.l 

3oe 

OEsuG- ■ 

HATT 

HDE_C 

HE pn 
H INC 

HMKCU 

H R E T.A 

H 5 1 C 

11 

KK 

M I : j 

M x N n M 
MX .MED ... 
1 1 x i ; o p T 

. M X ■; 7 T 

N 0 T y E T 

H T M p. n c 
a p T 1 n p 

.pa ... 

PN 

.R.ii.LSJL 

temp 

Y E s M T X . 

Y E S S K U 


.D.UJ31- 
0000 
Qno*» 
0 o o i 

jD.nUJL. 

n o u ** 

goo ‘i 

n n u '* 
_n qol 

onoi 
nnno 
n n o * 
_g.oij3 

Onij 3 
ono 3 
000 3 

pn n 3 

nnu* 
000 
OQU 7 
_.0007.. 
0006 
00 06 
DO 0 7 

n o o r » 

nrjOA 


.oaoi.^—LOOoi — 

OllDoO 1 500F 
o OnOfi02_OHFlLT.- 

0 TllOflOn H tl L A N K 

4HO.ij2.7__ H no T 

(J n il ri 1 5 t.|FPIJU 

oonuQ*.. HK E Y- 

nnuii23 H o 

. ...000!) I 7 H R 0 1_ L _ 

onno 2 * hS 2 
OOP 0.0‘Lj HJB* 

1 nnooOl KODE 

. i3rU001_MXEI.fi 

onunoi m*ncof 
I no Do 1 0 n x of 1 
noon 1 s vixnsm 

nnO n .2 2 m v p_o 1 Y „ 

moo 02 urClpl 
0 0 0 (J 7 3 MTMP ic_ 

onuti' 13 OP 7 T Y P 
00 J 1 U PC — 

onon i 3 pnom 

on opo o cTAr.E 

0fl0n 2 & TE^IPO 
_L . nnn j On . y esnyo., 
\ fnnn2i Y rSsRP 


J30Q L._. ODD 1.0.?— 1.^2LG 

0000 000002 5-jlF 

_Dno5. R . on G q 6 3 Dp 

OOO't DDOOO 44 Hy L K 

_n oa a. a noon p_h f-s-M — 

□ on 'I 0011(312 HFpDM 
,.oau9. notion. 7 .. hmaTr — 
nom nnoo 26 hpc u 5 

nriui._ onuoi*. hroot 

ooon oood22 hs h u 
_0 □ 0.6 OQ.0XU-Q — 1 0 P-EJJ — 

0006 L 000023 LFl T 

. 0 00 3 000Q2 i l_M)(Ei.6-T- 

0003 000005 MxnCT 

0 00 3 0000*1 M x M 0 

0003 00(1016 M X ^SP 

_n a 0 5 l_o o n o n q__.n f . i 

nao* nanrj03 n^^olE 

_.aoo A on aii os 

00 0 7 R 0 00 3 2 1 0 p T 1 

_.OGU 6 GOOD L.I-PCpl 

0006 0 QDO l 6 PslOsH 

nn n 5 [. p o_OJ. Qi__SJ.aD.RJ3_ 

odo 7 oooois tempi 

...non* l_ oanp2 i »_ye. s p_ C H_ 


.ou.D.i _ooua 3 _s__ 

000 7 000021 

_ oani 000037 .. 

0001 o 0 n 0 3 1 

-0 00-1 nOUO 34- 

oooi nouoil 

...0001 -R ■ 0 0 □ 0 1 ’1 - 

naoi rjoao3A 

.0001 r .000013 
0001 000021 
_0.DO.7_HOU.J0.I_ 

ooa 5 p poucjS i 
__0 0 o 3. 00002-3. 

ODD 3 [j00025 


OOD 3 
00 0'3 

_a.QQ7_ 

000 6 

ooa* 


OOUO 1 2 
OOmjl 7 

UQ0Q71 

aonmi 

004006 


0007 R 000022 
DOoS- R- 000025 
ooo* oo on 1 2 

- e » I ^ 


20L 

ANORM 

HACC 

HCCW 

HF-&D 

HFPN 

HMEW 

H R A TE 
HSIAN ... 

MX 

JJ 

MAX 

MXES.I— 
M X N C V 
mxiiph. 
MXUtn 

NRZEKO 
flXN _ 
OPT 2 

_PCT 

PVAR 


-000 1- 
0007 
.0001 
a noi 


0007 • 0OOU6S VAL 
00 0 6 .n0no2o YESRAtfg. 


000 121 

000000* 
— 000025 
000 0 3 3 

— oaooii 
0000 1 0 
.. oaooi* 
0000 1 1 
ouoaDo 

I DOOOOO 
QOOO 1 1 

oooooo 
000002 
000006 
0000 13 
000020 
,L_ 000027 
000071 

o u o o n 7 

R 000023 
. 000015 

R 000077 

_r__d.qoooi . 

00001 l 
L 000025 



-Syn^°u-W-w?—!wp+jrm *■> — — 

c 0(..Mp.fj/Kr fp l f M<u I T ,Mx K: ! G * M t FRM , M XMBM »MX Near . HxNCT »rfx NE . HxNEQ » 

1 -**NF j ,«XnG»WJ(^|PH ,-MXhPP , N XN WP T , H X«S H , MKN S p » H X NT H T 

2 mXNv ,hXNZT mXpOLY ,MXCST tIUE J GT *MxtlCv 

^ r-p-p-g-/ — L A N X- *-D H F-l-L-T-rM ft K-F-Y-f H E S T-l tHK ft-T-R-t H G E N E r+* S At* 

t H E T A * H S T A N • H 1 1 E v n : N Y 0 U • H R 0 0 T » h l? 0 L. L » H-S iCiH52,HS‘*S» 

2 wO » m x . H AST I HP-LVS • *-D 0 T , H S T A R , H ! r ; C : * H 0 E C » H C ft » H cC v: * 

3 ijATt tllR ATT iH a cC i HFf'D « HFf ' 11 * l!f(iD iHFPoO i 

nOliHLE ppre I 5 1 ()N HfiLAN^ * °HF I LT 

pN ,pn , p Ida i yE 5 nyq .stmdrd 

LOGICAL yESnyQ »STnO!<D 

-COh-MOnZ-k EE.p46^ sTAqE , KODE » N«c LPL . N UpOLE * ^ *Z E R U* MX** * NX N ? NX R 

1 I Op r M » JO P E fl » f* V A R I P N<»m * pc P L t p F Ac » P5L0 SH * 

y Y-C-i^-x .».y E- S-R M t YES SRP--» 0 £♦+-*-¥€ SRtrPm 

yESsrl * N 0 >1 r I A L ,H0 TyET 

Y L G M r x * Y f- S * A <• ,- Y E 5 «: '< P 1 0 E H U 6 » L P L"T *Y E Sp C H • Y E 5 RlP t 

j Y t: -> Gt.’L ‘ N 0 M M A L , N 0 T y E T 

CO*-i ftON^C ft t>0 ^ /--flC L ( 3 ) i u P T * Y P t *3 I , tEMp < 3 1 » VP I LT I 6 > t REqEST » Op T I NP » 

1 0 ,, T1,OPT?»OpT3,AN[)RM,xFMP l3l l* I '>|TEMpniAJ,VAL <<(, i 

2 i-j-J hp hi-, H T-M P '.MH+eTftP+ C* rN F 1 L~T- r-l | <4- HrJ^-T-ftW K K Eft-i-yp C 4 


INPljT N Y f} II I G T OATA 


^39& 0 - 
ft 397 0 
ft39Bg-- 

H39?0 

_Hnu.oa— 

440 1 0 

_.ftftn2o- 

hmo Jo 


LOn K AL~ 


OPTt 

-QP*-?- 


P I cO w 0PT3 „ . 

T m E. XE.S.r_HOR....E N g ALU. Y - BE T4-; E ^Al-J4aNs i-HTE-GEK.S— M-AY-WGT. -B E--MEAN l-NfiFuL-*- 

IF I Opt I MR ,EQ *H i <Eta > GO T ° 1° 

ThE TpgT FOft COiiAl iTy ■bE-T. 7 EEN-hON w ! NT-EgER-5— MA¥~k 0T -BE--MEANI NgFtlL 
IF <0pTIf*P.K r '«n2TftM) GO To 7 0 

T> « £ t I_Li> « _ . E, jj y A t-l I- y~R E. I j, E£JL..w 0 w * f .N-T-T.-g E ft-S -tf A-' ¥- 

IF 1 Op T I »!p , E«V * nHEiJ 1 GO TO 3g 

CAN N q r interpret nyquist input OPTION 


_ it_y 6 q— 
Hfto7 0 
-^HnB 0 - 
‘Ifto’u 

--ft ft lUu- 
MH l 1 0 
— ftft-l 2 0 - 

BH l3o 

- *» ft I ft n 
ft ft 1 ^0 

-ftft 1 *0 - 
ftftl7 0 
— ftft MJg- 
ft ft 20o 

-ftftPlO 
ft ft 22 g 

- ft ft ? 3 g 
ft ft 2 ft g 

—ft ft-2 5 q - 

ft ft 26 g 

ft ft 2 7g 

ftft2Qo 


HOT B-E — N EAh-INq F-U-L-*- 


KOtfE ■ 3ft 

.&£ r UR H ~.l— 


pETAlfi. PREVIOUS CASE. NYQU 1ST OaTA- 


4_a-cnHT-iNOE- 


IF < «NOT . YF.SNYG * r.o TO 10f]0 

.rEtUsn - •• — 


EMPLOY STANDARD NyQUIST DATA 
20 CONTINUE 

.... YEsM* 0 3 •true* 

S Tnn^O « . TRUE . 


ftH2?o 

ft ft 30 () 
ft ft 3 1 g 
-ftft 320 - 
ft ft 3 3 g 
-ft ft 3 ft Q— 
ft ft 3 5 g 
-ft ft 3 & □ - 
ft ft 3 7 g 
—ft ft 3 B g 
ftft 39 g 
_H.y NUg- 
ft ft ft 1 g 

_ ft ft 4 2 q 
ft ft ft 3 g 

ft ft H ft g - 

ftftftSg 
— ftftft 6 0 ._ 

ftft 4 7 0 
.44460 
4 4 4 V g 


-OO0UOO 

000000 

OOOOOO 

onouno 
-anoooo 
.unoooo 
-ooQono 
ooouno 
onoooa 
000000 
— oooono- 
nnoooo 

— ooauoo 
Doouno 

- OOUOOO 
OOOOOO 
-OOOOJO- 
000000 
onooao 
onouoo 
onoooa 
onoooo 

— on 00 u 0 — 
000000 
onoooo 
000000 

0 n n 0 0 0 
000000 
— onouni 

000003 

OOOOOS 

onuu i 1 

00001 5 
0000 is 

0000 IS 
-0000 1 5 
000021 

— 000023 

000023 

000023 
000023 
000023 
000023 
— 0000 30 
OD00.1U 
000031 
00003 1 

— 000031 
0D003 1 

000031 

000035 
0000 35 
0OOU36 



return 


— i Q— cowT i nue — 

TEsNYrj a ♦TRUE. < 

STk.D!? 0 a ..FALSE* 

PE ad < 5 * snn > riri 

snn..-F.cufiiA-^l I-S-) — — 

IF <NFl*LT.l • 0 ^ • r’lFl *GT i M x nF I 1 GO TO 2000 

Re a.D1 5 ,sn j l._t ST«.1-T-»-,5 tP-(.U„».pCtJ. >-Um IWC U .*JOx+.U. r !l£H 

501 F Opil at ( S E t 2 » s , 4X , A 1 ) 


■ j T NfU4— 


C PREVIOUS NYOuIST qATa rEquESTE 0 but NONE EXISTS 
Inna continue 
return i 

_c 

c 

. C hi U.MB E r__O.F_My q U Is I- ERE c u E N C-Y. _ i N ■ T E Rv ALS — I S- -0 U-t-0 F Ha n g e — 

c 

.Jtoro continue : - 

<0qE « 

— L-_ _R.£-t -UR«J — I > : 

end 


4 450q 
-* i MS 1-0 — 
4452 0 
JS.H S3o___ 
4454 0 

- 4 HSB 0 

4456q 
- 44570 .... 
4 4 5 8 o 

Jit. 4 5 ? o 

44AQ 0 
44A1Q — 
4 4 6 2q 
.HHA3o 
4 4 6 4 o 

-4-4 A S o 

4 4 6 6 q 
_4467 0 . .... 

4 4 A 8 q 
- 44A9 0 _ 
44700 

-4-4. 7 1-0 

4472 0 
_.4 4 7 3 0 . 

4 4 7 4 Q 
4 4 75o-..._ 
44740 

_4.4.7-7-Q 

4476q 


en; of co;i p ilation 


3 _□. Utmost ics* 


61-93 


3.Foe.U5; rr‘,^^jTr 1( F ..IrNPuTr 


? IJ iJ'RO'.'T 1 v£ I-i^UT E\‘7«Y P 0 | qT 00f)0 4 A 


s T 3r<*f,E usta?. code.UJL n n ,oa521_-oAT-A.t.u >._.0noaa4 1_0 .l>n k — e o«HON i.2.L_.oonaoo. 

COMMON — A-L 0 C K-S ' : 

-- n0O3 -.-ICEeP2- -00004-7 

nOOH K E E P l 6 000031 


_EJ; T.ERJJ A1 R ?. F £ S EL,iC£S-JU tOCJU-ia^EJ. 

. < 

.. I'0D5 • AFTVAR 

I'OOA PREVAR 

• ”00 7- -■ - 0 A T A - 

n o i a nerrh-s 

— 1*0 1 I - — NERR34- 


O0=J#^F ASSIGNMENT IHLOC^i TYPE* RELATIVE LOEaTjoN. NAME) 

^ooi oonoo? lot oooi ooaoi 6 iool ■ oooi oood 3 2 iooOl oooi cooo 2 a zool ooo 4 l 000022 debug 

I ;;0o3— fy- nan30 2-0HPH.4 PC&3 h AC< 000^ 0 D 0 0-2S— H-r-5-T 00 O 3 GGO-O^-S — H-A -T-T- 000 3 -O" 000000- HBt AN* 

■'003 R 0 G 0 0 0 4 HBLK 0 0 0 3 OCiOo 3 * 1 HCC.V 0003 0Q00 33 HCA QOa 3 O0O0 3 2 HOEC 0003 00002? HOOT 

.. UD0 3 ... . OQOOQA. HE ST I _-0OD 3 0n.Oo4.3_HFGD 0 00-3- :4)oa04.*L_Mp 6 N— DOO 3 oOOOH0„HFPO 0003- -00 004 S HF PDO 

[i 90 3 000042 HfpnN 0C10 3 0000**1 hFPN 0003 DOOOlO HgENE *■ 00q 3 Ci000 3 l hINC 0003 000005 HKEt 

.0003. ... ouooa? mm ft tr oao3. -coon 1 *•— hne-a- noa3 odoo^A-.^homi ooo 3 oono 1 5 . hnyou- Ooo3 000023 ho . ■ — - 

no 0 3 000026 HPldS no 03 0 0 0 rj 3 A h^ATE 000 3 0 0 0 O 1 1 HR A -V OOO 3 0 0 0 0 1 2 hRETA OOO 3 OOOQl 7 H R 0 L L 

: Q n 3 00 00 l 6 .. hROOT 0 003 non r-1 3 u. H -sT an noa^__™0 000 3 U-HS-T-AR 0 003 000 0 20-HSi-G 000 3 000 0 2 1 H 5 2 

no 0 3 00 30 2 2 HS 4 a QrjO 3 OPOu 2 4 H T 0 00 0 p 00000 \ lt JPS 0004 oO0O*O|OPEN 0 00 4 OOOOIIJopeN 

; 0^4 .1. OijOOOl *0Op Qn04_L-‘ nn0p23 lELT OOO'j --L-0000 2 ?. ..NqwMAL 0004 -t--0000 3 0 NO IT £T 0004 -000002 NRCL p L 

f' 0 0 4 DO 0 00 3 NR POLE On 0 4 00()f'G4 nkZERO OOO "» 00 00 OS Nx^ 00D4 OOOOOA NXN 0004 00000? N XR 

.. r:O04 CO 0 9 I 4 PCRL 0004 OPOlllS.pFAC 000 4 .000013 pmqM-- 0004 - 0000 1 6. p St OSH 0004 R 000012 PVAR 

POOH OODOno STAGE D004 L noon 1 ? Y E 5 1-1 T x 0004 L 000024 y E5 p C H 0004 j_ n000 2 D TESRAfl 0004 L 00002-5 TESRLP 

£0 0.a_^_ 000026 -YE s -SAL 0 Q0.. 4 .00 Q 0-21— y E S 5 R P — * — - 1 


DPinl ]• n P n R P ' j T 1 r | M Pu 1 ( a **> **6SH 0 OOPDnO 

00 inn _ 2 * C&wH'^'Vv'iFp.?/ H.B.L AfJic »DHF Il T *HflL« *.M<Ey »HEST.I.,mMaTR (HGENEtHRA^i 46S& Q . . OOO 0 00 

0010 3 3* 1 HKETA, HS?AN, h\>E k * h NYqUiHR00T»hr0lL»HS1C.HS2.H54h-» 4 656q OODOOO 

00 10 j 4* 2 H-Oiux .HASl.tHP.L-US miDOT , HbT.AR , K-J-m-C tHDEC » HCW » HcC-tt-» 56 5.7 a 000000 . _. . 

00103 5* 3 H A TT ,h«ATE * nA cC ,HFPD *HFPN»HFPDN»HFGO»HFGN,HFPD0 ‘ 46500 OOOOOO 

0 0 1 QT : a* 4 hN0h-1 — - — -465-9 q OOOOCQ 

00)04 7 • DO., OLE PRECISION hslANK.DHFjlT ' OOOOOO 

0310'.' .... p • cO.llOn/lSEEp l A/sT AGE t K OOE *N«cLPL . NRp OLE tNRZEf^o *NX0 tNxN »NXR , **66 Jq .. QPOOOO 

T Cl t n ' • 9* 1 I OPt;‘! , JOPpN t P v AR , ot-O.) , PCPL ,PFAC .PSLOSH » '4662o OOOOOO 

n 0 1 0 r - . jnt 2. ... ... YESMTx»YES4A*,Y£S<;FiPtoEljUGiLFLT»YF.SPCH»YESRLPi 4 66 3 q ... OnOOnO 

HOI!*'. 11* 3 rES f >»L»NOMNAL,NoTvET 46(s4 0 OOOOOO 

.3012 1 2 * L-0- -t-C-A-L- Y.L S»TX,YCsHA0 f YESRRP*OtHUG » L-f^trT- ♦ T € S E g h> -Y-E S R l- P -** H 6 * & 0 n C 0 0 3 - 

r 2 0 l n '» 13* l Y ES5»L » NOmN AL , NOT vE I 46 a<*q Op 0 0 0 0 


-CT> 

VO 

-fc» 



C 

C fiETvRw PARAMETER V^tlfts APTC« VARIATION 


:v^BO~ 

'H'&'6 9 q 

’3'b7 Oo— - 


■ooaooo 

JOOOOOO- 

onoooo 

--onouoD- 


ThE TFST ‘FOP EqijAi 1 Ty ©“E IT-WEC N vONM NTE G’ER S 'MAY r: 0 T 8'E H'E'ANi Ng'FmA' 

If ; lPvAR,f Q.HBiLKU ■ G 0 -TO- 1-DO .... 

CM. L *f TVftR < “''lot 01 


JJiCXlJi-paRAXE-iJ E.x- T yAR 4 _a T1 q N 


:H% 7 U<o 

.... _'J»'67 3- o . 

'9 '6 7 H 0 
^6.75.0- 


_1.D..C.Q«.T.1.MUE 

CA^L pRFVAR ( Tlf)OQ , I I 0 □ 1 
■ RETURN — - 


INPUT DATA FOR THE NEXT CASE 
I 00 CONTINUE 

... - CA L L DAT A t S I OOD *.S?nO-»S 10 >. 
RETURH 


..NO • M 0 0 E- DATA . CARDS 

200 -COt,TI ftUE 

RETURN 2 


J.Np uT — F . SR OR- — 

ono co.nTI nue„. 
return 1 



9 6 7 6 g 

9 6 7 7 q . 

- 9679g. 
9 A 80g 

H 6 6 10- 

9632 0 

1R6AT0 

9 689g 

9486g 

9 6 8 7.Q- 

9 6 8 8 g 

*16890- 

9690g 
- 9 6 9 1 0 
H692 0 
— 4-4¥■30- 
9699o 

**695o 

969*0 

— 9 6 9 7 0 
9 6 9 G Q 

-9.6.9 ¥ o- 


--•oncocso 
vov o o 5 
. ' 0 no CO 3 

'0OOUO3 
— XlQOCiO 3_ 
00 UOO 3 

— 000007 
000007 

-000012 
0000 ! 2 

— 000012- 
00001 2 

-0000 l 2 
0000 1 6 
000016 
000022 
— O0OU22- 
000022 
000022 
000U22 
-000026 
00002* 

- — 0000 2 6- 
000026 
— 000026 
000026 
.. 000032 
0 0 0 U 3 2 
OQCUS 1- 


•'■ W . - 


en; -of compilation: 


1 O^GNOSTICS 


.6-95 


nOO 3 


NEWS 


r A G E—t-S < I fifJHE UT C K ♦ I Y .. F £'..» .. ft £-LA T f -V-E - L-Q C A T { O N-* — UAHg ) — i — 

... 'iDoi .oooo m~.lL oooo onOoOl— i w Jps ooon-R-oooOoo -1-NT > 


0 0 ml -I*- R E A L - • r U N C T- 1 0-M —I NT ,| <Y1 ,X,..T-2 1 =■ — 

OOll' *D!AgNOSTIc* ThE Trs 1 " FOR Equ^L^y 0ET>(EEn uON-lNTEgERS MAy 


.. . noi 0 3 ?• -I F~( Y *V-4F , Y )-> 00- TO 

0 0 1 f ) 3 • 1 N T 1 B 0 ♦ 

■- 0 D l.n a HI H-E-f N -R-N — “ 

OOJO? 5* 1 IMri «* <Y - Yl) /( Y2 - Yl> 

00 M I 7* E fin 


H 7 qUo- 

NOT BE MEANINGFUL* 

H702q 

HJ 0^0 

H7 0 H 0 

_ H70&0 

H7O&0 


oooooo 

oooooo 

onoooi 

-OOOOOH 

000 D I 0 

000016 - •- 

000036 


j_s-.Ug.no: 


£ “!rv--O.Fl _C. 0 l.P- 1 L A.UJ 3.0 


96 '& 




.. 00 1 ru X* HE-AL..FUMCT.I0M_|MT.2.CXUX2*0J ** 7-0 7 o — 000000 - 

0 010' 7 * ]Nt2«X1+PMX2»x1* ** 7 0 8 □ ODDOOO 

00 1 n t . .. . 3* — — RETURN - • - -R 7 o 9 0 00 0 DO H 

00in"> *• • E Nj) 17|Oo 000015 


EN.n or comp ilation: n o n l aqhoST-!.c5-« 






SFO^US F^!^ALC,F»KCALC 
F0S-;E1x-P&^23/7 4-Q8;3M: }-3~..< 2 , 3 >_ 


S ' 3 R 0 ' 1 T I U E <Cal c E N y R V P0 jmT OOoU*4 


S.rORAfiE USED; CODE ( t I.-j-O nOO 7-6.; — f) AT- A 1. 0.1 — Or) 0 0 60 ; — 8 L ^ N «- ■ COMMON (-2-) -0-00 aOQ- 

—CO^MON , B |_0-CXS.: — - - — — • 


10Q3 KEEPS ongo74. 

1004 KEEPIR OOonoS 


E-SlE-R U a-U- .3 E F_£ 3 Ei'J C E S 1 fl L - ft G* ■■» - MA m E I 

...... .1006. — PEVAl 

1006 det 

- — - -'>00 7 • CDV* 

10 10 N.iDUS 

1 0 1 1 — — N 1 0 2 S- 

)3 12 MERR3S 


<; T 0 R AG c 

1 0 Q 1 

ASSIGNMENT 1.3 

n n n n 4 7 1 1 

L (>C ■* » - J-Y.BE »~.R F L A TjVE -LOC A-T-t-O U UUH E ) 

nnnl nnnnSG ui ... nnnn nnaoJ_0 6jxn.E 

__OUOD 

■~00OqJq— *- 0l F 

-000 3 — L — 0000 7 I 

-Both — 

)000 c 

000004 

F5F 

nooo 

c 0 POqQ 2 f S P 

ono3 

L 000073 GprINT 

oooo 

O00054 I NJP* 

0003 000D67 

ithzT 

J 00 4 L 

oaaooa 

-LG A MJ 

0 00.4. 

L— - 0 00 0 0 1 — l P H A SE 

-00 04 

L.-QQ300 2 — j. poLES 

-QD04— L 

-ooooo J- usdRl 

0004 L OO0OO H 

LZFROS 

1003 l 

000072 

MODIFY 

ooo n 

1 000007 mSF 

ooon 

I anooo* n sp 

0003 

000004 NZT 

0003 OOOO DO 

Super* 

. . -.1003 

000003 

TO 

a oa 3 

L -J100tj7 0 -y F S Z 0 H 

-00 on- 

■C -000000-2 

- 0003 

-000002-ZM — 

QUO 3 ODOODl 

ZT 

1003 

000005 

ZT v AL 










0 0 I o 1 

00 1 0 I 
.00jn3 
00 i n » 

D 0 U0i_ 

OOin-, 

.. ... oa i a r 

oo n > 

oaii i 

ooiii 

oo u i. 

oo 1 1 | 
00 1 1 ! 

0 0 1 1 J 

ooi i :i 

001 1 s 

oo-i iv- 

00117 

... 0 0 l 2 1 

n o i ? i 


1 • S.Ui < -ROuTl. > !E_.KCALC...t.f\ASEiNpO«FR) 

2* COhMO^/KEEPS/ SOPerK , ZT ,ZMt T 0 ,NZT iZTVALISQ J , |THZT ,YES 20H,f)0rH, 

4* UOqICaL Y E SZOH»BOTH f M n DlFr* SPRINT 

... 5* £.Q H J4il sUX g .£i > ..l .J5 X fc..c A .} jj.» LP-H XS E-» t^P 0 L r S ♦ L-S 0 RL-«-L-Z- E-r-O- S 

6 • LOGICAL LSArN,LpHA5£i L P0LFS.LSD«LiLzER0S 

8* COMPLEX 7»FSp,F5F 


in* C 

— 1 1 • c ptfiO^.aj^j>l_c0JlT-U<5 

12* C 

.- l .1 • — - Z- *- f n . , n..) - 

14* IF ILSDR(. 1 Z = ( l • * n 1 > 

15* XAtU pEVAL-t-ZjFSP-ANSPJ- 

!*• CA L L oET< Z .FSF.NSfJ 

1 7 • 1 &P-3 Jl.£ H- a-.- US F. — -J4.5 .0 

!«• BA^E « F5F/FSP 

.. 1 9 * . - . IF t .mOT 1 r.?R I NT 1 

2 0* I F ( RPO'->i! . 0,0 > 



H 7 1. 1 o ooDOna 

4712q 000000 

■■— — - — H7|3() — --000000 
4 7 1 $Q OOOOOO 

ooouoo 

onouoo 

H7|6o anoooo - — 

0 0 D 0 0 0 

4 7 1 8 g - - • OOOOOO - 

47 1 9 0 OOOUOO ‘ 

H.7200 Q0OO[lO 

4721a onouoo 

— - ooooon 

onooo l 

4 7 2 30 OaOUoS.. - 

47 24q 0000 1 2 

47 25.0 0000 17- 

472*0 0nOO22 

4727q.. 0000 27 

4?2*o 000034 


return 

GO To l 


■v'? J TE 1 6 , Aoo y BASE.NPOftER 

A,0-D-*F.Dfi!lA..T.t ?( /J..* 2nx. i —CHARACTER Ij;XICi-/20X • 1 P DLyNoh -U U-?./-2J3 JC »- 

1 ' LEADING COEFFICIENT* P lpEl5.7,ElB.7 f 5X.IBt 

&.Q.— J-0 — H 

l CONTINUE 

. !t RJ.TEC.&, 6iU )„ 8 A.S L_ - - — 

& n l 20 X.' CHARACTERISTIC* / 20X,'pOt.YNOM I AL* /20X » 

UL f A DI^S ..COeFFlClr-NTT. , 1 P E 1 5 , 7 f £ j 8.. 7 ) * — - 

H CONTINUE 

R EtUR-T4~ ' 

END 


H729q 

J.7.30Q- - 

*47310 

-*4-7 32 0 

*4733q 
*4 73H 0 — 
*4 7 3 

-*47 3*0 — 
*4 7 3 7 o 

-a 2.3 s o— 
*47 3*0 


0 F _ C 0 M p I L A t i o n ; NO. .DIAGNOSTICS •. 


Subroutine Lmit Entry point HOOD*** 


STORAGE u 5 E 0 : _CODEXlJ.-.Q.naa&Ol...OAT.At.n.L_OiiaOl-Hi-.BLANK--C-aMMON t 2 .)_m 3 CT> 00 - 
— COhMOM_BuO CXS-i ■ - L- 


3003 - KEEP t • O 00 n 2 J 


EtURNAl REFERENCES IbLoCC, Na h E> 


130 4 NET R 3* 


STORAGE ASS I GNmEN.T 1 BLOCK*- TypEt-RELJU I yE - L OC A-T-I 0 N »-N AhE > — 

, — - j O QO — 0 0 0-0 fm — I N' .J P 8 Q tH3 3 — I — 0 0 0 f j 0-0 - M-A-X 4-T — — 0 00 3 — l— 00 00-0-1 — W-X-E-l-G — 

1003 I 000002 M X F R M 0(?03 000(103 mx n 9 m 0003 I 00000** MxnCOF 

- 3 30 3 I OOOOni.-MXNf On03.._}„.OOOoU 7 -txNEO — 0003- I - 000 0 1 0 -m x \F T— 

) 00 3 I 0 Ci 00 13 1 X N P P noD3 i P 7 0 0 1 ** m x N 0 P T 000 3 000 0*5 m * aj S m 

- 1 0 0 3 l QQOOJO MXNV OoO 3 i-.ODOO^I- M X ^ Z T- --00037 - 000022 -M x P°t_ Y 


- 00 Ch 3 — | — RflOO?**— J WJtE-I-W- 
Ooo 3 I 000005 MXNCT 
-OOo3-|— 0000 1 1 - MXNG — 
000 3 I 0000*6 MXNSP 


— 0 0 f) 3 -— I — 0000 2-3 - -M X E S ?- 
0003 000025 MXNCV 

0003 I 000012 M x N P H 
0003 000017 MxNTM 


00103 

■4 • 

- 00 10 3 - 

s » 

0010 ) 

6 * 

00 i n 1 

7 * 

DO l 0 ) 

9 * 

- _ DO l 0 ’* • 

9 * ' 

00 ( 0 ) 

[ 0 * 

. ... 00104 

-- 1 1 • - 

n o i o 7 

1 2 * 

- -.--00 1 1 1 — 

- 13 f 


0 3 1 ] I 
0011 ! 

0 3 111 

001 1 < 
00115 

0 Q I i s. 


— STTq-S 0 .(*XIjj.F — L-I M-l-T 

COi-mOn/kEEpI/' f-i^XITtMxElGfMjfFRH.M 

.1 . _ l« X N F.I., M x N G i M X mP H i m X 

2 h X Nv , M X N Z T iMXpOLY *M 


XM 8 M » 
N PP« M 
X E 5 T » 


MXN'cOf 
xN^pJ., 
MXE IGT 


.MXNC 
t-iXNSM 
. MXNC 


T » M X NE 
.MX-NSp 
V 


• MXNEC t 
i-rtXNTM t- 


-S & T ■ ■ p ^O-G-RA-M^-T^. 


1 * 

1 5 * — . 

14 * 

1 7* 

1 

.1 ?.*. 


-M.x «.. £ Q... * — X o 

MA X * T «= BO 

_MX *.2 T • = &0 

nX/.CT a in 



h X ■; f’H = SO 

.y. XrRvt. “ -in 

M X t. 6 » 50 

« X F-4_H_ 1 o 

M X r 1 0 P T ■ 1500 

-MX *-E — » — LoOO 


001.1 ' 

2D* 


MX\C0F ° 

1 

o o i ?. i 

. . 21* 

— 

...M X c I G T a 

1 

00121 

2 2* 


X..PP C 

1 n 

7 0 1?* 

23* 

- 

HX..S" a 

Bn 

0 CJ 1 ? 1 

2'** 


NX* V * * 

n o 

00 i 2 » 

76* 


MX V 3 T ..=... 

.7 6 

0 3 1 2 i 

24 * 


M E 1 0 7 !l 


0 0 l ? '> 

2 7 * 


e N r. 



J97BO0 

R7*Uo 
-*1.7*120—.. 
H7H3 0 
H7 4 4 g---'- 
‘*7r5 D 
-H7S&0 

4 7 4 7 g 
.M7 4 0O-- 
**7*»9q 
H 750o- — 
** 7 S l o 

-*(7 5 20 

4 7 5 3g 
• *1 7 5 *» o 

**755(3 

— ** 7 S 6 q 
**757 d 

-.4 7A3q 

** 7 6 H q 
47a5 0 - 

** 7 6 6 g 

** 7 6 7 g 

4 7 6 e 0 
-4 7 6 V g— - 
**7700 
**77 1 0 


-OOODOO 

opoooa 

OODOOO 

oodooo 

-OOOOOO 

oooooo 
-oooooo- 
oooooo 
■ oooooo 
ooooo 1 

000003 
00000 ** 
-000006- 
OODO 1 0 

or oo 1 1 
OOQQ 1 2 
000013 
00001 4 
-0000 1 6- 
000020 
ortioz 1 
000022 
000023 
0 00 0 2 4 
-000026 
0 000 2 7 
OnuOH 7 



SUBROUTINE MLTZRO 


Entry point OOQ 7 05 


. s r 0 R A G u s E 3 ! . CODE U. L-B.&.D 7 . 3 3_L_ n A_T A I. 0_> _Q n.0 2.17. a L a N k „<-jO M m 0 N. 1 21 -DO noQ 0- 

COMMON- ^tOCKS-; 

J 003 KEEP5_.-D0.0a75 

10QN K E E p 1 H 000031 

)0 [)5 • • K E S P | 6 0000-31 * 

1 3u 6 KEEP21 00 M i 3 

I3u7 e^0i>1 — 00-002 St — 

13 1 0 CR002 001215 

E t T E R N ® L REFERENCES laLflC<. NAmE> 


1 0 1 2 N *1 0 U $ 

0 0 1 3 - N 102s - 

)0|4 NERK5< 

- 13 | 6 N £ 3 R 3 5 - 


\ t OrWv ASSIGNMENT tB U0 CK, TYPE. RELATIVE l0 C AT|QN» NAME) 



DO t 0 1 


0Q0 6 57 

003000 

003065 

□ 0 3 l ^ 7 _ 

030012 
DO 00 111 
00-3 1 7 1 
nano? o 

000072 

_Q0 0 7 as_ 
nooooR 
ooaoo 7 . 
□00032 
oao 32n 
000016 
OJ3 022. 

nooo 1 1 
0 ) )0n 3 

0 000 2 b 
□00032 
anno l 7 
QaQDQ2_ 

1 • 


l o i nu 

6 a of 

62 1 f 
.63 2 r 

oa 

F I F TEN 

| M J p S 

lflt...... 

MO,-) I FY 

-IN CZ 

NR ZERO 
N X R 
ONE 
P I 

psuosh 

a o n 3 

R3 

ID 

YESRLP 

-Z M 

ZOhS 

Z 3 


OOO 1 OnO 1 2 0 )5ol 

- -oooo — on On U— 6 1 If 

0000 000102 62?F 

._Qaa7 . R ...3n3'i- 2 - < 1-A r T2 

poor « ona.i 1 3 r)i 
... poor. . onani?.. fiety- - 
o n ii 5 nona t o r open 

....QrjlO 1...00 l 2) 'l cOEO 

no in i nolo 77 ndcpEr 

_..a o o c L_ t _jiaao Zl~n o m n At 

nnio i jni?i2 numpol 

.... 000 3. — OOOnUM.NZT — 

a o o s o n o o 1 5 pCpl 

_..ono'« o 3 o o 2 1. p 1 2 

0 n 0 $ QoO n 1 2 P 7 A R 

D n J 7„.o._ 0 n 3 o H 5 

nou7 r? ijr'0,; I 2 ,,R 
o □ u m c a l: o o 1 1 H 

n,)fj5 L on On 2 6 


0001 000223 

. 0000 pOO 0 26. 

noon 000 1 l 3 
-3003 — L — 0 0 0 D 7.1. 

0005 R 0000 1 4 
000^ C n 03006 
ooo3 noon 6 ? 
0 0 0 A ..1 .. 0 0 0 7 0 M . 

0006 I OO1020 
_ooqSi— t — no 00 3 o 

OOO 6 • fj0O 7 O2 
...GOO 'J .... 0 30 0 2 6 
0010 R 00031a 
_.oo i n_ R. ooooao 


T.'lO . . 

..... u yessrl 

..OOO 7 .. 7 -0.0 00 > 3— z OH 1 

noo3 p oaonoi ^t 
_ ooo7 r_q aau.ai_.z-X- 


nao<i 
..non «- 
nno- 
aaoT- 
0 0 0 5 


00002 ^ 

. r\ o 0 0 23. 
0 0 0 0 2 2 
0030 1 7 

o o o 0 2 1 


sun 


...0007L-.R_.QQCa 15 
OOO 3 000005 

. _0007_i?— 00 0 00 5 

ROUTINE MLTZROf«,M,N,RTR,RTl,RSR,RSl > 


2hdL 

6 1 2 F 

6 7 3F 

-3o T J * 

0? 

•F o-j R 

ITMZT 
L0 C 3Z— 
NOc 2 
-No lY-E-T- 
N i.i u 2 

■ N 1 

PD 

P *J H 

R A oOEG 

- HP 1 

SU ALL 

YFS'ITX 

yksSrp 

. Z 0 H 2 

ztv a l 
_ rs _ 


oao i 

--OOOO- 

ooqo 
-oaoS- 
OOdR 
-■ OOo 3 

0005 
-00 10- 

00 1 1 
_oqqS_ 
ooqS 
0 0 0 H - 

000 6 

. 00q 5 ■ 
0007' 
— 0 □ p 7- 
OOqG 
_ 00 0 ^ 
00 i 1 
-.0 00 7. 

0007 

— oao7~ 


□00335 

1)030 5 0 

ooo i 3 a 

.j__0O j 0 2 2 _ 
R 00031S 

L ... 000073 
nooa 1 1 
4- 0012 13 
000000 

OQ0002_ 

□00005 

000027 . 

R 000351 
— 000313 
r 0 0 0 0 2 0 
-r— -GOO 0 07_. 

’ nnooon 

L .. no JJ2H 

u OOJOOl 
r 0000 15 

R oaoooo 

_ R—O 00005- 


25qu 
6 13F 

62H F 

DEBUS— 

O 3 

GPR INT 
JOPEN 
locn . _ - 
NEQZ 

-NRCLPL- 

N X B 

N 2 . 

PDZ 

p H 0 H 

ROHl 
.Rl 

stage 

yESPCH- 

yeszm 

z oh 3 — 

Z ^ 


0001 000561 

0000 000 o 55 

ooon nooiHi 
-0 00 5 - -033025 
DOOM H 000016 

unou c ooaono 

OQU 5 I 00030 1 

0006 I 000?03 
0010 I 000765 

-OOO 5 000003 

0005 000006 

0 0 0 R 000330 
OQOS 030315 
-0006 R 000300 

0007 R 000021 
-3007 -R 0000 1 U 

0303 R 000300 
ODG 5 l 0 0032 0 
0003 L 000370 
...0007 r aaool 6 
0D07 R OOOODl 
— 0007 — R OQOOO 6 
0O0ULJ0 


300 l 

Mip 
6 3 l p 

DEG 
05 ■ 

HALF 
KOOE . 

L 0 C N Z 
NNCPER 
NR POLE- 
nx'n 
N 3 

P F A C 
PNZ 
R 0 h 2 
R 2 

Su PERK 
y E s i< a n 
YE5Z0H 

ZOHH 

Z 2 

Z 7 . 


! 20 L -9; 


0 310 3 


-- .00 103- 

3*-- 

00 1 0 » 

4 * 

o o i n r> 

5* 

0 0 1 Cl 1 ’ 

6 * 

oo ins 

7 * , 

0 0 10 7 

R* 

0 0 1 n 7 

9 • 

oo i o ' 

10* 

0 0 1 0 7 

1 1 • 

00 11 i 

12* 

OD l l 

13*. 

001 1 l 

1 4 • 

00112 . 

... . 15*. 

o □ 1 1 : 

16* 

noil 2 

1 z *_ 

noil i 

l 8* 

DO l 1 ) _. 

1 R * 

0011* 

2D * 

0 011* 

. 21* 

00 1 1 > 

22* 

go 1 1 

23?. 

n D i i'i 

24 • 

oo iri. 

.. 25* 

DO) 1 s 

76* 

’ 0 0 1 2 « 

.77* 

o o 1 2 ; 

28 * 

0012 

2? * 

0 D 1 2 5 

30 • 


COmmON/K FF p5/ 5UprRK»ZT#ZH»TD«N7Tt2TvAH50).|rHZ T »YESZ0H*B0TH» 

'^LO^iCAL YESZOH»30TH,rt 0 DIFv iGpRINT 

COmMO^/KeeP 1 ‘i/HAi. F-.-GUJ £.#-T*Jl 1 £.0 UrL,- r i_F_T EN-»J7U.^.4 _ t £.;l, DJ-* 0.4 ,F-J F-*X,.P-I- 

1 p I 2 t 5 M A L L * R P I t RAOnEG» 0 EG*Nl » N 2 1 N 3 

COmPLF.X ..... . J< a lf t ONE 1 T-‘«'0 » rOUR *F I F T EN -- -' - 

CO M r J inu/)<rFpH./sTAr 1 E : »KObE*iMi’l(- : LpL*i'IRpOLF' N NZ Ec * 0 ,N XB»NXN|NxR. 

_J _ I 0 p r \i * JO P E N ( p V A R.i P N Qm ♦ P C P L I P F A c-o p SLO s H * 

2 yES.m*YE 5 HArt.veS 5 fiPiDEtnJli.LFLT»YE:SPCH»YESRlP. 


542^0 000 0 DO 

— S430q oonooo — 

5 H 3 2o 000000 

__3.‘U3q ODOOOO — 

5434 0 .OnDOQO 

. ooaooo — 

0 n 0 0 0 0 

0 0 0 Q D 0 

000000 


LOGICAL YEShTx»Yf-SRArt,YES',RP»0EBU5iLFLTtYESpcH.YESRUP» 

l y E S S M L * NGM N A L , NO T y E T — - — 

CO h hOn/kFFp 21 /pN Z < ?2S1 »PD Z { ?2S) .NUmz »LDCN Z »lOCD Z » N NC Z l 75 ) , HOC Z < 75 ) 


S437o 
5436 0 
5 4 3 9q 

-5.4.4 0 0 0 0 0 0 0 0 

54410 000000 

.54 4 2 q ODOOOO 

000000 


— C 0 uri 0«/ C R0D I / - Z 1 »Z?,7. 3>Z4,Zc,, Z 6 t Z7 , R 1 , R 2 , r 3 , R ** 1 
1 ZOHj t Z0H2,Z0H 3 iZ Oh4,Z0H5, 

_2 U-OH-V. R0 h2-».;<OH3..» RO-u-**..* A T 2— 


5 4 H 3 q ODOOOO 


5444 a 
_5.14 5q. 


COMMON / CPI. i 02/ p>4N ( 700 ) , P!) ( 3 n 0 ) > P F R 1 7 5 > » No c p E R 1 7 5 ) t 

,.J i:iUMpOL>LOCN»LnCD — — 

C 0'i!10 f) / C P'J D 4 / fiFO 7 i Y FSZH 

LOGICAL . . . -YtSZM * - - - 


C PRINT THE Z^RO. ROOT AND 1 T S R^rIdUF 

IF * (j P R I M T * *JR I T£ I 6 , 600 I RT r *rti»RSRiRSI 


.6 DO FOoMAT < t f ft lOX* If’rl 2.5 »5x , E 1 2 • 5 , I Ox , * R ES I DUE *->-2 (-5 X , E 1 2 . 5 ) I — 


0 D l 2 :> . 
0 0 1 2 •> 
DO 1 3 1 
0 013 1 
00 1 3.1 -. 

0013 1 
00131 . 
00 133 
00133- 

00 l 34 

.001 33_ 

001 3 1 » 

.001 36 . 


3 1 *. 

32* 

3 3 * 
34* 

3 5*. 
36* 
37* 
36 * 
39- 
MO * 

.4 1 •. 

4 2* 
43* 


C DETERMINE WHETHER a/ S» A/S**2» OR a/ 5**3 IS sElNG CONSIDERED 
IF tN. ED.?) DO To 2Q0 

. lF.-(M.Ey.3» GO- TO. 300 — • -• — 

c 


C A/s To PE CONCERTED 


Z 1»RSR*SUPEHK 

Z2 B DU 

Z 3 “ 01 

-Z-4 — g.-j-0-l 


IF I Y £ 5 Z n H I GO TO 1 SO 


00 136 

44 * 

C 

DO 136 

()«, • 

c 

n 0 1 3 

46* 

c 

6 0)4 ' 

4 7 * 


DO]' 1 ’ 7 

4 -3 • 


. -0147 

mV* 

— 

00 l 5** 

Sn* 


„ 30(51 

51 * 



001 S2 

52* 


00 15? 

5.3 *_ 

c 

DO 1 57 

54 • 

c 

DO r r >:.’ 

55* 

. . .. c 

COIN'' 

56* 

c 

o r] j t , 

57 • 


0 0 1 6 1 

58* 



.PRINT ^.COEFFICIENTS. 


.1E_ J.G fi R I MJ.I_iIiU.TEX5 »ALU Zi-» ZJ2*-z3_i 7-H. 


6|1 f 0 « M A T I / 1 0 X » f ? E S I D u E f S*t 3 0X,*7 NuM * » 2 1 5 X » t pE l 2 » 5 ) / 5 3 X , * 0 E f) * , 

...i. 2 ( 5 X * E l 2 •* 5.1 .1 - - 

R 1 *Z 1 

R 3 » 02 


print. r_coef.ficien.Ts 


5 4 SO q - 
5 4 5 2q 
.54 530 
54540 
..5 .4.5 5 q. 

545^0 
-54 57 D 
5 4 5 00 
S459 0 
5460q 
j5 4-6 1 q- 


5 4 A 2 D 

...5 4 6 3q 

5464 D 
S465q ... 

5 4 6 6 0 

...3 4 6 7 □ 

5H68q 

„5469q_.- 

5470o 

-5471Q- 

5472 0 

S 4 7 3 q 

54740 

.... 5 4 7 5 o 

5 4 7 6q 
5 4 7 7 o ... 
5 4 7 B o 
_5 .47.9 u . 


5430o 
5 4 B 1 o 
5 4 R 2 o 
.54030 
5 4 B 4 o 
-S..4 B$Q — —0 000 5 3 


onoooa 

-ono-ooo— 

oonooo 

ODOGUD 

oonooo 

ODOOOO - 
ODOOOO 
-OODUOO- 
opoaoo 
ODD 000 

onoooo 
anoo i 3 
oaoo i 3 

-OOCO 1 3~ 
00001 3 
0000 1 3- 
00001 3 
onoa i 7 

000017 

-0 00 0 1 7- 
onou i 7 
■ onoa i 7 

GC 00 2 3 
• OD0U26 
000 0 30 
.. 000032- 
000033 
000033 
000033 
.. 00 00 3 3 
OcO 0 3 3 

0 000 3 5 

00005!) 

... 00 0 05 0 
000050 
000052 
000053 


IF I G p R 1 N T 1 ; R[TEt6,^>2lRl»R2 l 73 

612 F n K .H A T 1 f 5 1 x * * << N U:i' ♦5x»lPE.l7.5*5X»El2»5/53x # , DEN , »5x»E12»5) 


5 4 8 6 q 
.5 4 6 7 q 
5406 o 
5 4R9 n 

54 9Uo 


0 0 D 05 3 

onnoS3 

000053 

a n o u 5 5 

000067 



00161 

00 16 L.__ 

59* 

60* 

no i 6 i 

naj jl -1 

*1 • 

0016? 

63 * 

- • 00163 

- ■ • * 4 « — 

00 l 6 4 

65* 

0 0 1/. N 

- 66 * — 

0 0)65 

67 • 

3Q j 

6 8 « 

00 167 

69* 

00 l 7 : i — 

- 7n* — 

n 0 1 7 1 

71 • 

00)77- 

— • 77* 

° o 1 7 r 

7 3* 

CO 1 7 c 

7m* 

0017? 

7 5* 

... - 0 0)77 

... ..7 6* - 

0 0)74 

7 7* 

0 0)7-! " 

.76* •- 

"3 ] 7 5 

79* 

g g j 7 j* 

J) g * 

no 1 75 

4 1 * 

— DO [75 - 

n 7 * - 

nO 1 7S 

PI* 

. 03 ] 7.- 

5 4* 

p o ? n ; 

4 5 * 

0 0? n 7» — 

a .6* 

00 ?fVt 

87* 

00 ? n r > 

9'0 * ..... 

06 00205 

?9 • 


..I.He-FotH.o* 1 Ufl— I-SrtfSEfr- fOr_Ny3uiST -AN-tYS I S- : — 

t ; 


LOc n “ L 0 0 N ♦ l 

pH*r- *LOC*J > * R 1 

(_ 0 C M * L n r N + 1 

p^ f .j — i-L OC *' )- = -R2 

n £ N 0 M f N A T 0 9 C nEFF I C I £mT5 

PD (LnCf)) * P 3 

M NfpFpi l 'J.jmPOL * - 5-2 

NDf PER l MitMPQL J B 1 

return =— 


7 ER 0 0'7DE« IIDLO SELECTED 
l50 CO-jMmUE 

7 0 M 1 - z » ■ - — 

2 Oh 2 » Oj 



00 2.1 l 
00 2 11 
0071 > 
0 0 2 1 1 
0020 0 


- p R I UT--2 0 h COEFF I C l 5NT*5 

JF . iGplUtJ.Tl— .4R-I-IF. {*,6131 ZO H t , 7^02 — 

*13 FOtrMAT 1 M Ox * ' RESIDUE / s'» 2ft X,*70H uUM * * 5 X « 1 pE 1 2 » 5/S 3x 

1 * -Q. f ^ 1 , a X , £ \ g -r-54 

- R 0 h I «= Z 0 H 1 

PRINT UOh CnFFFfClENTs 

IF <OpRlMT> t f? I TE I 6 i * 1 H 1 R 0 u 1 , K!JH2 
6.J a _ F 0 a H A T t /H9X., LH 0 H . :iUJS*,5X, 1 P f J 2 • F ^53 X DEN.*., tiX t E 12, 51 

—THE.. FOLLOW 1-N&— I-S-USED-F-OR -M-Y-qU.J-ST— a ^A^yS I-S 

NUJ1 E s A — C-R-E-P-F-t44-£-N^5 

LOcN » LOCM ♦ 1 

,_... PN^.-t LOCN > w-WO-M-1— 

DENOMINATOR COEFFICIENTS 

L o c d a - Lorn t. . i 

PD t L Q C 0 > a RO H 2 

6MJf> P F.d, (.fj)|uP-;ll_J — ? — | 

NO c P E R < ‘1 ii '• PO L 1 * 1 

IF- I • uO T * y E S 2 M > RETURN 

N U I-. I ~ -IumZ ♦ I 

-MJC-Z I-nUUZ F -■ I — r~ 

LOcNZ a LOCNZ + 1 

PT1Z tL-QC N.Z-1 — 2 — 2-Qli J 

N D C 2 I N U H Z ) =■ I 

u o c o 2 * LOCDZ + 1 - 

re? < Loco? i « zou2 


S491 0 000067 

S492 0 GoGO* 7 

5493 0 0000*7 

000 0 6-7- 

5495q 000067 

54?6q 000072 

5 4 9 7 g GPQ07S 

5 4 98 q 00 00 7 7 

5 4 9 9 g O 0 OO 77 

SSOOq 00 0 102 

SSO 1 0 DOO 1 0* 

5So2o OOQ l I 0 

5 SO 3 0 000 I 1 2 

1 5S0 4 Q - 000 1 1 4 

BSO^O ODD I n 

5 5 0 8 o 0 0 0 J l 4 

5 5 0 7 0 On 0 114 

5 E>q8q - 000 I L 4 

550 9 Q 000 1 20 

551 Og- 000120 

B 5 1 1 o 000 1 2 1 

55 1 2 0 ooo 12 1 

55 1 3 0 000 1 2 1 

5S t 4 Q 000121 

55 1 5g 00012 1 

: 55 1 6 o 0001 23 

, 5 5 i 7 o 0 n 0 l 3 R 

-55 l B 0 QnO i 3 4- 

55190 000134 

55200- OOO 13& 

5521 D 00013* 

5522 0 ooO 136 

5523q 000136 

-5 5 2 4 0 000136 

55250 000140 

552*0 — • OnO 1 5 l 

5 5 2 7 0 0 0 [! 1 5 I 

5S2eo 000 1 5 l 

55 2 9 o 000151 

5S3O0 OOO 1 5 1 

5531a 000151 

55320 000154 

5533o 000154 

■ 5534q 000157 

5535q 0001*2 

553*0— OOO 1 *5 

5 5 3 7 q OOO!* 7 

553&g onn 1 7 o 

000175 

000200 

000203 

OOU2U5 

0002 1 0 

^ - -- 0002 1 2 

□002 l 5 

- . 554 1q -- 0002 i 7 

S542q 000217 



6-104 


0 0 2 3 J 
00 2 3 ■> 

±1 ?..? 

1 20 * 

0023 i 

l 2 1 * 

no ? 3 » 

l 27* 

0 0 2 4 j . .. 

123*. 

CD?M 

1 24 * 

0024X 

.1 2 5 

n d ? h i 

1 26* 

0024* __ . 

127* 

0 0 2 '* 

126* 

0024 0 

l 2 9* 

on?., •! - 

t 30# 

.0025 » 

_1 31 •_ 

0 0 25 l 

1 3? • 

C 2 5 3 

1 33* 

n o 2 5 •> 

l 3 't * 

30 2 0.’ 

I 30*. 

0026 i 

]36* 

-002 A-l 

. 1 3 7 *_. 

00 2* 1 

1 3 11 * 

“0 2 A J 

1 39* 

0 0 2 A 1 

ltn* 

00 7 6 1 

I 9 l • 

3 3 7 7 1 

1 H ? * 

j 0 2 7 J 

_ 1 4 3 *~ 

0 0 2 7 1 

144* 

0027.) 

.. 1 H S * 

0027 i 

J46* 

0027 1 

1 4 7 * 

* 0 2 7 ’ 

14 3* 

0027 1 

\ 4 7 • 

002 7 1 

1 5 0 * 

002 7 . . . 

1 5 1 * 

3 n 2 7 '« 

157* 

0 D 2 7 •* 

.15 3* 

0027 ’ 

! 54 * 

0 0 3 0 J 

_ 1 5.5 * 

00 30 1 

ISA* 

..3030 \ 

.157* 

0033 I 

1 S U * 

- 00305.. . 

1 S* * 

0030 3 

1 6 0 • 

7 0 3 n *i_. ... 

J4] * 

3 0 3 0 5 

1 i P • 

no y' < 

U7, 

3 U 3 3 5 

1 A H • 

0 0 3 3 '< 

165* 

00 3 3 7 

‘ 166 * 

5 0 3 n 7 __ 

.J’67*. 

0030 7 

■ 1'6 9 * 

0033 r 

1 A9* 

00 3 0 7 

1 7n * 

tu 3 1 ’ 

1 7 1 » 

0 0 3 t •' 

177* 


C . . A / S * * ?— Ta~ n r_c£M V E R-t rn- 
C 

?nn rn M Ti*juF 

Z|aSUPEi?<»RS l ?*ZT 

.2 2.. =_.D0 — ... 

i 3 = ni 

ZS = o> 

lJL-t.Xfe5.ZJXH 1. G o -10. 


C pRlnT Z C ur FF I C t ENTS 

IF t G P « ! M T ) V R 1 T E { * , 6 2 1 ) Zl,ZZ*7 5 »ZR»Z5 
. J --iOl_F-a^iA.xLZ..i.R. X .. > X»i.F.S Uv^ W._sX> 2j » 2 
I , 0FN*»3t5X,£i2.5M 

R 2 = r) 0 

. K3b~Z 1 - — 

R H = Z3-.Z44-Z«i 


C---PR1.UT..R -O0EFMC1CNT-S — - -- 

c 

-IF tfipKIRTl R I T E I A » 6 2 2 ). R 1 , R ? i p 3 » R '♦ - 

622 FOrUA T 1 '5 I * t * H MU*i* ,3 t.&x . lRpl 2.G > t *0 £n 1 

r 

C THE F 0 U L 0 »> i ^ G IS u S£ 0 FOR NYqU|ST n N A l_ Y S I 5 

C numerator coefficients 

LOcN * LOCK ■+■■- I - 

PM fj t l oc ’! i » R) 

L 0 CJL-?.... LCC-N- - + l — 

P N :•} < L 0 c a I s R 2 

UOciJ- =■■ LOCN .+ 1 — — — - 

r^M I L O C *■’ I * M3 

. .. c...._oENan i u a tor coefficients — 

LOcO = LOCO * I 

EJD-.LL.OjCD. L-X— R-H. , 

NNcPER 1 NijnPOL > ” 3 

- f J D C p F ,? ! N UMC.CLL I 

RETURN 

C 

c 2.SL8.U_ O R !i Fit —Li£LL J — 5£.L E C-T-XD — 

C 

„2 b.o. ..CO t, T I :iy -— 

7. 0 1 • 1 3 7. 1 

Zqh3 » - 0 | 


C P.R.INT-Z.0H. CJ3EFE.1CIE.NTS.__. — - 

c 

IF t«;pN!'«n ?■« I TE ( A , 623 ) ZO H l ,Z'jH2,20H3 

A?3 F0RH AJ I / I '1 1. , * RfS 1 ntjE 2 S * * 2 * * 25 y , ' z OH NUrt» 




0031 i 

•- 0031-7 

003?) 

00 3?4 

0037 1 

---0 0 3 5. i — 

003? 1 

00 3? I 

CO 3?? 

00 3 .3-1 

CO 3 3'i 

— 00 3 .3 ) - - 
003 3 ' 

00330 

0 0 3.31 

00 3 3:? 

0033 3 
0 0 3.3 • — 
0 0 3.31 
-003 3 '> — 
C 0 3 3 •'» 

00 3.30: 

00 3 J * ' 

_ 003 'M _ . 

00 3H \ 

00 31H .... 

00 3 9 •' 

— n 0 .3 r — 
0 0 3 3 ? 

Or- 0 0 3 5 . n --- 

^ 00 3E» 

O 00)^ - 

cn CO 3 0 t 

0 0 3 

' CU 3 V> 

. . 00 3 V* — 
00303 

.. 0030 I - - 

0 0 3 S ! » 

dG3Si> 

00 3A ’i 

....0036 


} 7*4* — 

17S* 



1 7 7 • 

7 n» — 
1 7 9 • 

1 A n * - 
l 9 1 * 

-4 9 ?-* — 

1^3* 

| A 9 » — 

| 

. 1 34* - 
1 «7" 

-1 a 3 • — 

i a 9 « . 

- 1 9o* - 

1 9 1 * 

- I 9?* 

1 93 * 

9 H * _ 
J 90* 

1 9 A* 

1 9 7 • 

- \ 9n • _ 

1 99 • 

—2 0 0 • — 

2 0 1 ■ 
-207*... 

203* 

2 0 9# _ 
2 0 9 • 
-_2 0 * * — 
23 7* 
203* . 
20 0 * 

- 2 1 n • 
211* 

— 2 12*— 
2 13* 

2 i 


1 , 0E" , *2(5x,e 

— 

ROm 2*-Z0 u | 

ci-*! a - A..i •> -» ah a 


PRINT ROm C'^EFF I C I-ENT «3 


IF <r,pRI<YT> t TE ( f> , 62 H 1 «0 M 1 *R0H3 

^-■F^r7rtfrT^^°XT-^^ 4 nm J - r 2 -^X * l-F t 

C 

C — T H £. - F 0 L L 0 1 ' 1 1 m G -J S-- uSgfi- FOR . nYRU j 5 7 - - A N AL V S I 5 


-NUHCFaTOr-CoFFF l Cl e *TS 

L 0C N e LOCN * 1 

LOrN * LOCN ♦ 1 

--pNv— t fcOCV 1 • 3 -R0H2 

f)E NOMINATOR COEFFICIfmTS 

LO r O “ LOCO"* l - — 

PC <L0C0» a ROM 3 
H H c-FF-R-^-H H M p- 0 t*)— * — 2 

N 0 r. p E R j M u M f» 0 L 3 “ 1 
-^—1 F • L.MOT ’..yFS z M-»- « F TURN- 
HUM z = nmmz *i 

N N c z < N U M Z ) 3 - 1 . - 

L 0 c N Z e l . 0 C N Z * 1 

P M 7 I-trO C-H Z -V — = — Z O H4 

NOcZlNUMZ) 3 2 

LOcOZ = - LOCO 7. ■• * — 1 

PO?tLoCOZ) » ZOH 2 

LOrOZ * L0C-0Z--+— 1 

PO 7 < LOCO?) * ZO H3 
R E-T-U R rt 


A / S * * 3 TO Or 
300 CONTINUE 

T-F — L,. rgOX^-S-Z Q-H J ' 

AT ? = R5R*7T*ZT*SUPEric 
2.1.-J5L..AT2/Q.2 


00 3*:; 

215* 

Z 2 = 

AT2/D 

0 D 3 A 3 

2 16*. 

Z3._“. 

_D 0 

• 0 0 3,.-* 

2 l 7 • 

Z9 a 

0 1 

30 3A'.j-. 

_ 2 13*. 

z S_ 

..-oa. 

0 0 3*1 

7. t 9* 

ZA a 

D 3 • 


0 0 3 /, 7 
00 3 A 7 
00 3 9 ' T . 

0 0 3 A ' r 
JQ036 L. 
003 7;i 
0037 ! 
CO 37 "* 
0 03 7 3 
0037 * 


L 7 ... = -0 1 


2 ER 0 o Rn ER HOI. 0 SELECTED 
ZOh 1*71 

_Z U w 2 a 2 2 

Z 0 1 ; 3 3 ’ ni 

-. .. Zo-H = - 0 ? - • 

Z 0 s b 3 0 l 



6-106 


0037 s 

23n« 

C 

0037 s 

--23 1 • 

.... „c 

0037'* 

2 3 2 * 

c 

nrrw-' 

233 *- 

_ . r_ 

0 0 3 7:, 

2 3 S * 


0 n s n ’•* 

_ _ 2 35*. 



PRINT ZOh COEFFICIENTS 


63 1 


n n s n 5 
dosha 
0 D H 0 r 


2 3 A ' 
237 ' 
2 3H 


IF <GpRlNT> 1 VR I T E ( A , 6 3 1 > Z °h 1 , Z nH 2 » 7 OH 3 » 2 OH S , ZOh 5 
. _r 0 q x\ A tA 7. 1 Q x . -- ;<ES las U E-/--S.* * 3 t - *2 S.y _ ? _Z o H ~N U M.? . M-5 X-* * P E 12 • 5 » ' r >3 x »- 
l *ppM» > 3t&X t c;t2,5n 

- HOh 1 » 20 M l + 7 . 0 H 2 -- -- 

KO »»2 = -n?*Z 0 H 2 


.A 0 S 1 t.l ... 

239* 

i 

00 s n 

240 * 

f 

P 0 s 1 ’ 

2 4 1*. 

_.C 

DO s 1 i 

242* 

c 

ODS ! 1 

.... 243* .. 

. c -PR Ii 

DOS 1 1 

24 4 * 

C 

. 00 S 1 2 . 

2 45* 

j 

^nsz t 

2 S A * '• 

632 1 

00s* 1 

? H 7 * 

— C 

004 2 1 

2 4 0 * 

c the 

DOS 2 l 

. .'249 * 

c 

0 0 S 7 l 

250* 

c MUMI 

00*121!. 

251 • 

! 

004? ^ 

25?* 


DQh ? * 

253 * -• 

— — .*..-1 

0 0 4 7*' 

2 5s « 


DOS? /. 

255* 

— . 

D 0 4 ? 7 

2 5 A * 


.00 4 p ^ 

2 5 7* 

r aEH 

DOS 3P 

zso* 


. DO 4 3 ! • 

259 * . _ 



004 37 

2 6 0* 


0 0 4 3? 

26 1 * 


DOST'- 

26?* 


0 C S 3 (•. 

‘ 263* _. 

— 

‘0 0 S 3 

? A 4 • 


n n s s 

2 A5 * 


0 0 4 4! 

26A* 


OOSS'2 

_ _ 2 6 7 * . _ 


004 43 

263* 


00 4 4 *’ 

? 6 ? * - 


CDS 45 

270* 


C 0 s s 6 . 

27 l * 

• 

DO 4 4 7 

2 7 2 * 


00 4 5D 

27 3* 



0045 1 

274 * 


>* 0 4 5 2 

_. 2 7 5* 


n r- y 

2 7A* 


n o m s 1 

27 7 • 

C 

n D 4 S 5 

2 7,3* 

c 

0 0 4 5 3 

2 7 9 * 

C PSJ 

0 0 4 5 3 

2 AO* 

c 

p.D sSA 

i.2 A 1 * 

ULUL 


DS 


PRINT. ROM COFFF J C I C M T-S - * 

.. |.F-_li;p«-I-U.U~^K-I-tE_LA^a2JL_4?-Q 1+ -l + Rj^t 2-,-ROH ^-**0 H «■ 


* ,5XiEl2*S> 


TOR COEFFICIENTS 

0 .O) c H— =». -UOcJJ—i . — 1 

p M m 1 1 0 C 1 1 I “ RQHt 

i.Oc f J = LDCN + 3 

P M r; ( L 0 C M > ■= « 0 ri 2 

LOc n - =» LOfN + I - 

P N n 1 1 _ 0 C W t = RDH 3 


L 0 C U ° 1 0 C D * l 

PD .li.ocn-l-B roh 4 

NflC^ER t flUNPQL » * 3 

LDr f J E« < NijliPHU > a -I - 

] F < .ijOT , Y F 5 ZM I RETURN. 

iiU;:Z_ b_UUI!Z_*-..4, 

N H c Z ( M U M 7. ) a 2 

lQcN7 3 L OC N Z — *■ -1 

PN7<LOCN7I » ZOH1 

LOCNZ- *..LDCNZ * 1 — 

p H z ( LDCN7 ) a Z 0 H 2 
M D-C Z.Lu Lt M7-1— *• - 

LOc^ 2 3 LOCDZ + 1 

PD 7 -IL 0 CDZ) a ZOHj 

LOcOZ a U'COZ * 1 

.PD 7 l LOCD 7 > * ZOHS 

LOcOZ * t.OCD? * 1 

PI? 7 1 1 y .C 0 2. J.„ . a _Z0 H.S 

R F TU P N 


S 6 5 0 0 

5 AS 1 0 

S6S2 0 

S&S3q 

• SASSq 

5 ASS q 

5 6 S A q 

S6S7 0 

SAStjQ 

56 S 9 g 

5660o 

5A61Q— - 

. 56 A 20 

5 6 A 3 0 - 

56 6 H 0 

5665o — 

5 66 6g 

5 6 A 7 0 

5 6 A a g 

5 6 A 9 0 .. 

5670Q 

5671-0— 

5 6 7 2 0 

5673q - 

5 6 7 4 g 

...I 5 6 7 5 0 

5 6 7 6 0 

5.6.7 2-0 — 

567B 0 

5 67 9 0 

5 6 « □ 0 

569 Id - 

56820 


Q J MT_ ERROR mESRA^E **.♦. T HRE EU Z-E R-° 5 »- B III. ZjDH. ..N Q.T-R E Q U E S T ED - 


5685 0 

.. 56S6o 

56 0 7 0 

5 6 8 8 0 _ 

56 0 9a 
56 90 a- 


0 0 h s 1 

0 0 u r, A 
DOSS” 


2B 2 * 
203 * 
2 n 4 < 


KOoE ■ 47 

RETURN 1 

E N 0 


569 1 0 

__ 5692 0 

5 A 9 3q 


0 0 0 50 7 

- 000507... 
000507 

— 0005 0 7— 
00051 0 
_... 0 n □ 5 2 s . 
00052S 

- • • 0 Q 0 5 2 S ■ — 

000527 
— 0 0 05 3 2 — 
00053S 
--00 0 5 3 4 
0 0 0 5 3 S 

- 000534 

00053 H 
— 000536 
000551 

— 000551 
000551 
ono'isi • 
000551 

— 000551— 

0 0 0 5 5 s 

-• 000557 
000561 

- 0 00 5 6 S 
000566 

0 0056 6 _ 

□ 0057 t 

— 00057S ■ 

0005 7 7 

- on 06 01 
000603 

— -0006 10- 

0006 1 3 

— 0006 16 
000621 

.... 00062S 

000626 
000 6 3-1 

000633 
— 000636 

Gno 6 s 1 

... g n C 6 S 3 

ono 6 s 6 

000651- 

000653 
0 no A 5 3 
000653 
000653 
OoO 6 5 3 

000657 

000657 
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si 1 0 routine MOOZRO EMt hy point 00 ] Oft* 


storage ijs fro ! code n ) n n in; ft ; _ hat a <_Q.’ _ on n 2 2 5_»_bJ-an k_.c° V.P n_* 2 > oon o g 0 . . 

Rl ocks ; - 


['CO-1. . .KEEPS pp Q.Q.7 .ft. 
1.00*1 K E E P 1 ft 000031 
0 ODft KEEP 1 6 000031 ■ 
00 0 6 <EEP2 1 00 1133 

rUQ7. CR 0 0.1 0DQft3.Su 

r U 1 0 CR-102 001 71 f i 

noil. . CNJDft._ Q □ Q 0 0 2. 


FMERNjL REFERENCES <BLnCK» N A n E » 



ten 2 n'jdus 
1 n 1 3 - . N 1 02* 

; 0 1 M m E R R ft 5 
.015 NERP34 .. 


5 T OR A G r ASSIGNMENT ( BloC k * TYPE, RELATIVE lOCaTjON* NAME) 


00 1 02 n 

ooaooo 
0000*6 
....... 0 0 0 1 * 2 . 

, ONTO 2 2 
r on no is 
L 00007 3 
0 0-00 1 J 

I 00 1 2 n 

... 0 0.0 on q 
0 n 0 0 n 2 
onooos 
00 00 2 7 
9 n 0 Q 3 <M 
0 000 1 3 
ft. 300021. 
r 11 0 0 0 3 1 
r nr) n :i 1 2 

C coo 00 ft 

L 000026 

R 0000 l 3 


1 01 HL 

*0UF.._... 

*2 1 p 
.6 3.2 (r 

debug 

0 3 

gpr i nt v 

JOPFN .. 
LoCn 
NEQ .2 

■vrclpl 

P X ft 

W 2 
POZ 
P N 0 M 

. POH.i 


T;>.0 

YESSSL- 
2 0 H | 


01)00 D ft Z T V A L 
r 03000*1 zft 


non t ono lift 1 sol 
onoo ooon M . 6 1 If. — 
OcuO 0001133 6 2 2p 

„ 0 0 U.7 :j. 3 .3._ a II 1.2 

non* 4 n 0 n 0 2 5 ( -, e g 

nqi)<4 R..O(jOl.t l 6. jj H 
OOD'i c QPOflOiJ HALF, 

. 0()0ft I . OOOL‘0 1 K ODE . . 

0006 I 000703 1_qCnZ 

_Q.Q_LC!_i QJii 7.6 H .C EJLe_ 

oooft on or) o3 mrpole 

..0 0 0 5 0 0 0 J0 6...WXN 

000 '1 0 0 0 0 3 0 N 3 

. nooft fjonois. p.fac 
0 0 0 6 r 0 0 0 0 0 0 p N z 
_o 0 u 7 p n r. an.? H . 2. — 

nnO't onoo 2 3 pni 
Pnu'i . pnOr.2 2 s.jAlL. 
OllOft L 'won l 7 y E s H T x 
_.0 0 0 ft. l 0 0 0 0 2 1 _ y E S S R P . 

0 00 7 R OoDO 1 * 4 Z° H 2 

Jft 07 R D0U 0 2 1 ._^qm2 

0007 q 0 n □ 0 0 0 z I 
. 0007 R. 00.0.0 05.. Z6 


000! 0002^1 2 nn L 

..0000 . n00025 .6 i ?F --- 

ooan 000 n ft 6?3 f 

.000 x_R_0 00 0 3 .!* i\^4.2,L2_ 

nno'* r non 0 12 nn 
OOU'i.. C 0003 »G FlFlEtj 
noon n 0 n I 7 ft injps 
GODS L CO 0 Q 2 3 lfl t . 
0003 L 00007 2 MqO I FT 

_ao D 6 I — D 0 0 7 a :u;- 2 — 

hods oooon^ N Kz e: R c 

-.000?* ftUUOQ 7 - Nx r 

noo^ c 000002 onk 
000 -I . 0000 2a pi. . . 

oaoft oooa 1 6 psl^si 
-jqqo.t. -P_.no 0 0 2*_.R q;l3 — 

n 0 0 t R 0 o 0 0 0 7 R i 
onoft nonoOo stage.. 
oaoft L 00002*1 y r vj p C ) 
-DO 1 1 t_ OOOOQ 1, .yp^Zft 
000 7 R 0000 1 ft 2 dm3 

_QQft 2 0 Oft a 2 2_zau9 — 

OOD? tl ODOOOl Z2 
0007 _R. 000006. z 7 - 



0001 000 3<, 3 2&0L 

00 0 0 pOCO 3 ?.. 61 3 f 

oono naoi 3 2 62V 
Oft n 7_^ -ftftl' 0 .1 2..JV.T.2 

0004 r 0OOOI 3 D 1 

0004 0 000 17 FIFTY 

00q 5 oooolo JOPEN 
. 00 1 0 .1 0 0 1 2 14 LOCO. 
OOlO I c0 1 0 7 7 nDCPEr 

Q 0 0- 5 -L—ft Oft 0 27 _J),0 li N Ax, 

00 t 0 1 00 1 2 1 2 NUMPOL 
00 0 3 COUOOH.. nZ T 

000 s 0000 1 **■ PCPL 

0 0 Oft _ D 0 0 0 2 1 P I 2 

000 5 0000 12 p V A R 

ft 0 0 2 R_ 00 0 0 2_7_ R ft H f) 

0 00 7 R oil'll In r 2 
.00 0 3 ,,ft ..OOCiU 7 0 SUpERk . 


000 1 OOOftftft 3 00L 

.. 0000 OOGOftft 6 1 

D DOO OOOlftft * 3 ] p 

U 00 3- L— ODD 0 7 1 _80Th 

U004 R 00001ft D 2 

OCCJft ,C OOOOU6 FOuR 

0003 000067 I THZT . 

„ 0006 1 00 0 7 Qft LOCDZ 

0006 I 001020 NDCZ 

UDOft -L- -000030 N c T Y E.T 

0006 I 0007(32 NUMZ 

0004 ■■ 000 0 26 N 1 

0010 K 0 00 3 I a PO 

.... 0010 K oooooa PNN 

0004 000024 RADOEG 

0007 R 000030 ROMS 

On 07 K 0000 'll R 3 

UOO 3 000003 ID 


ooaft L 0OUft2o y E S R A w 000ft L 00002ft Y E SRLP 

.0003. L . oOU070 -YESZOH 0003 K 000002 Z M 


00 0 7 R 00OO1 6 ZOHft 

.00 Q 7 00002J} — ZQh5_ 

0007 p 000002 i 3 


0007 n 00001 7 7 OHS 

..Q o 0 3_R — 0 0 0 0 03. _Z.T 

0007 H 000003 Z* 4 



‘I a .L»'lfa‘ 


7 • 

0 • 


1 Fi* 

-44* 

1 2 • 

-I 3* 

1 H* 

-is- - - 

J ** 

-1-7-* 

1 • 

J 9 * - — 

2D* 

-21* - 

2 2 * 

-2 3* 

24 « 

25* 

26* 

27* .. .. 
2 3 * 

... 2 7 • 

3 C * 

- 3 l * — 

3 2* 

— 3 3 * — 

34* 

...3 [if 

3 4 * 

37 • 

38* 

...3 9* • 

4Q* 

.41* 

42* 

H 3 • — . 

4 H • 


_ cy ,,.3 Qm.TINF— MOP 2 RQ-( • *M * N » R Tft , R T 1 « RSp « RSl I - - ' • 

COmMOn/KEEpS/ 5UPERK«ZT»Zh»TD«HZT ,ZT yAL< 5Q1 ? l THZTtYESZOHtBO TH* 

H 00 | p V .GP^lwT - - ■ • “ 

i n f irul Y^S7nH»B0 TH iHnniFY»GpRI^T 

1 Pi2,«5MAl.L» R Pl.RA4JnEGir>CG*^ l . N 2 * N 3 

C 0-pifx HALF »T:’-3»rOUK ,P iFTE'f -- *; — “ ~ 

C 0-.i-»0N/«'EFp l A/sT(.r,E *KOOl‘ »Nrt c LpL .WHpOuE i^UzEro »NXB *NXN»NXR . 

, 1 i-OPrt: , J0 t ’£ N »^’/AR , PC p L • P F A C » p 5 l -OS H » 

9 Y tSi>T<*YE4RAA,YESsRP*:)LBUG»LfLT*YESPCHiYESRLP* 

3 — r&-5 5 - 17 1 » N 6 H W A L-- k ) QT r -** ’ ”” 

LOr j cAL y ESmTX » yESRAW . yessRp »oesug .lflt »yESpch »yesrup . 

1 1’ _ . y £ SS^L » WOM N AL » M OT Y £ T "'" ' . 

c0vM n N /<EEP2l / P , ^ , ?^ > ?25 ' .K<>MZ,LOCNZ.ioCr>Z,NNCZt75) *NDCZ^ 

r0«M0N/C»L»9-t / Zlt77iZ3'Z i (iZ C| i26,Z7iSlt R 7* s 3i!<‘<i 

J ' 7 OH i , ZOh 2 » ZOri 3 t / i7m 4 1 znn^ I ZOri* , 7 Qh 7 »ZOH fl I ZOH? t 

? j^ H .f^- R Q H .2- r R0H-3 , RGt'H., «?-0,r&-« RQrl* rA'f 2 fAMT-2fAM?-T-2 

COPMOISJ/CROOZ/ PNNt 2fl0) . p O«3^n) ,*.;NCPER< . No C l ’ E R 1 75 ] * 

j (u U M p 0 L » L 0 C N , L o C D • • 

C 0 -i NO N / C P Uf> 4 / („ £(*7. ,YESZM _ 

. L'OfJCAL- YESZM - ~ 

C .... - 

c print THE ZERO R 0 0 T AND ITS RESIDUE 


IF IcpRlNT) i>;RlTEI& t AOD> R T R » R T I » R 5R . R S 1 

600 lPrl2.S,B X t El2 t 6,10x-,*RESl!>UE‘-,2<5 XlE 12.-5>I 

“TFrERTl^^THER A/ 5 . A / S **~2 * OR ft/S*0 IS^aElHg CONSIDErEQ 

IF (M.ET.2) GO To ?nO __ 

... . ... j f— l-M.Eq , 3 )_(50-T 0—30 0 — 


a/S To PE CflMVERTf.O 
Z 1 bRSR*SI.IPERK 

Z 2 a 0 1 • - 

Z 3 « -01 

lE—UY-E S2 c 4FJ— Ga— L 


PRINT 7 . COEFFICIENTS 


,F 'ifiPRlNTl -fRj TEf H > Zl, 22.7.3 , _ 

j 7<SX,F12*SJJ 

fC 1 3 Z t — ■ — - - - 

P ? a ** 7 1 


PRINT R COEFFICIENTS 


(OpR'tMTl '=R I T E t A , 4 I 2 1 RI.R2 #p3 


S&9i 0 
— &*97 0 

569?0 

5.20 Qu 

57 0 10 

5 7 0 4 D 

— -57050 

570&0 

—MO 7-o 

57Q8Q 

— & 7q9 q 

— 57 1 0(J 

571 IQ 

5 7-12Q- 

— 57 170 --" 
57190 

-- 5720q — 

572 1 o 

— S722 0 

S7 2 3 o 

5 7 2 4 o - -- 

S725o 

5 7 2 6 □ - 

5 7 2 7 o 

5/2*0 

5 7 2 9 0 
- — 5730o 
57 3 1 0 

— 5 7 3 2 q — 
57 33o 

5 7 3 4 q 

- 57350 

.. . 57-3 6 o . 
5 7 3 7 o 

... _ 57300-- 

5739 0 

5.7 4 00 

574 1 0 

5742o — 

5 7 H 3 o 

57 4 4 o — 

5 7 h 5 o 

5.7.4 6 o — 

5 7 4 7 {j 

5 7 4 0 0 

5 7 4 9 o 

57SU0 - 

5751q 

5 7 52 0 - 

5753o 

57540 — 

' 5755o 


a if]’*/ 

00 !j 5 <V . .. 
00‘liG -r 

30 1 SI. - 

00! S' 

001 * V . 
00 1 f » 

0 0 1 '• 1 . .. 
00 1 * 1 
.00 I M 
00 If! 

0 0] 6 1 . 
0D ] 6 s 
00 I 6 » 
0017! 

OD 1 7 i. 

0017) 
0017 1 .. . 

0017) 

o n 1 7 1 .. 

0 0 17 ! 

Q01 7 1 __ 

00171 
00)71 
PO 1 7 1 
00)71 
00 | 7 1 
.0017) 
0020 X 
. 00 2 0 i ... 
0 0 2 VI 
0 0?*'*' 

0 0 7. o •> 
0023' - 

■0020 1 
0020 7 - 
0 0 20 T 
.00207 . 
00 2 1 1 

—0021 ' — 
OG?l 7 
002 1 7 

002 t 7 
002 1 7 
302? > 

0 0 ? ? 1 
10 ?? > 

0 0 2 2 ) .. 
0 0 2 2 ! 

3 0 2 7 4 
00225 

0 0 2 2* 

0 0 2? 7 
0023 ) 
0023 1 
0 0/3? 

00 2 7 4 




6J'V"p0pM~AT i'/Vl' k ,'R Nu■M , ♦5x**P£ i 7.5.'*X»^l2.5/S3t, , DEN , tSxSEl 2.5 t 


59<* £ TH'E FoLLO-vlMR IS uSEd FOR NYqUjST sNA LY SIS 

atO!? *■ 

6 )* C NUMERATOR C3FFF I C I ENTS ‘ < - 

62* LOc‘* * - LricN ...♦ . 1 - - — 

6 3* rM‘> «LOCMl 55 R 1 

.. . *>'t m ... LOOM - a LnCM- -* I ■ 7 

AS* PNn (LOCI) a R2 

66 ♦ r r.E MfiM j :W .LO.lt- . c a CF-fLlXJLE-^XS 

*7 * L 0 c 0 = LOCO + 1 

. 6 9* — PO- t LOCO-I - = R3 

6 ?* tJNC p ER (NUMPoL 1 “ 2 

70# NOcPEK 1 ‘‘Ji.JMpnL I ° 1 - - 

7 | ♦ RETURN 

..-.72* O 

7 3* C 

74* ___ C . 7 EK 0 .oROEft.-HOLD -SELEc TED - 

7 * • C 

7 * • . J 50 CONTINUE . • — . 

77* 2 0 H t 3 7 I 

7 M __ 20h2--*.~OJ 

7 9 • 2 0 m 3 0 Of) 

0 1 • c 

.A 2* .. c PRINT. ZOm COFFF - 1 C t ENT-s - - 

8 3 * C 

8 4 ♦ _ IE LtLe — Z-Pu l..,.Z nH 2 » Z0 K3 : — 

ft** 6 | 3 EOwMAT^tOXt* RESID uE / S*»2ax,-Z0H nUM * « 5 x * 1 pE 1 2 * 5/5 3x « 

3 6 * 1— * 0 E N * * ii 5X , {■- 1 2 * 5 U * 

«7* R On l * 7 OH I 

0 n« ........ R 0 w 2 = -Z 0 H 1 ... - — -- •-•■■- - 

f)9* R 0 H 3 = 0 ) 

9n - Ra-t-H_=-Ji.i ~ 


? I * 

9 7 • 

9 3 • 
94 # 
95* 

. R 65- 


PRINT roh coefficients 

| Q p h I m T ") T.'R jTE I 6 ,61*11 R0 H 1 ,RoH2,roh3.RoHM 
FQpMATl/49 X ,»JLiia?l-JLU?l'_i-2 .LSJLX^X4-?-»J 




9 7* C 

9 ... C T_HE~F.OLL0.iY I M c, ...I S—U 5 E n ..F.OR - MYqU 1 S T -aN A LY S I S.. 

9 9 • C 

Ton* c. NUMERATOR coefficients - . 

I 0 l * LOc N c LOCN ♦ 1 

; 0 7 «_ P.M.N-. f J- Q .. “ „..f!.O.LU 

l 0 3 • L 0 C N s L 0 C N + I 

1 <-} 4 * _ . . .. P ft i.j _.( l 0 C N ) = RoH 2 _ .. — - - 

! q 9 # C DENOMINATOR COEFFICIENTS 


.. 106* 
107* 

ID 9 * 
1 1 3 * 

m* 

) l 2 * 
113- 


PD ILOCD) “ ROh 3 

l.fl(Q .» _!_ acH— i— j — — — 

PO t LOCO) B R 0 H H 

..hNcPER 1 NUKPOL > *..2 . - 

M D c p E « I '!>j vp OL I 3 7 

[ F < • NOT . Yt S?M > RETURN 

i J U : / 7 3 Now 7. * l 


5 7 S 6 q 0000*41 

5757o- — 0000*4) . 

57580 Op006'4 

S7 59q 0000 

5 7 6 U 0 00006 < * 

57610 00004*4 

5 7 6 2 0 000067 

5 7 A 3 0 000072 

576H 0 000074 

1 5 7 65q 00007 1 

5 7 6 6 q O0CO77 

... 57 67(5 - DnO!03 

576^0 DD0IO5 

- 5 7690 -- 000 107 

5 7700 OOCIl I I 

577 10 00 0 l 1 l 

5772o 0001 I l 

5 7 7 3q , 000 1 1 I 

577*0 0001 1 1 

5775a OnO 1 1 5 

5776 0 000115 

57 7 7(5 00 0 1 1 6 

5779Q 0001 20 

5 7 7 9 q 000120 

57900 000 1 20 

. 5 7 B l 0 000120 

5782fj 000 1 20 

' 5783,1 000 122- 

578*0 ora 1 3* 

5795o 00013* 

579*0 000 1 3* 

5 7 8 7 0 000136 

5 7 8 G 0 000137 

5 7 89 q 0001 *1 

57900 OOCl*l 

5791o— ■ 0001*1 

.57920 0001*1 

579 3 0 . ... DODm 

579*o 0001*2 

5 7 9.5 0 0 0 0 15 5 

5 7 9 6(5 000155 

5 7 9 7 0 000155 

5790 o 000155 

. 5 7 9 9 □ 0 0 0 15 5 

5 8oOu 000 1 5^ 

530 1 a DO 0 1 60 

50q2() 0GQ163 

. 58 0 3o .... 0001*5 

50O*o 0001*5 

5805q . — 000 170 

5 8 0 6 Q 000173 

S.B 0 1 0 . Q 00 17 6 

5Bn8a 000200 

58q*Q 0 OU 2 D 3 

58100 000205 

58)lo 000206 

0 n u 2 1 3 




CTv 


0027 ) 

00 2 7-V— 
00 2 7 ] 
0027 1 ... 
^ 00271 
^.002 ? .L— 
'003^ 1 
.. 0 0 3H j._ 
0 0 3 0) 
0030 ) - 

noan 3 

DQ30 1 

0030 ! 

- - 00 3H - 

0031 1 

~- 00 31 i ... 
o 0 3 0 ■» 
v: 

0 0 VI 7 

. ... 30 3 1 

0031 l 

0031 2— 

003 I 1 

0 03 1 JL— 

003 1 3 
.. 00 3 1 1 
00311 
0C3J i 
0 0 3 1 > 


IIS* 

\ \ 9* 

1 20* 

- 1 2 1 • 

I 2? * 
423* 

1 2*i* 
125* 

I 2 6 • 

J 27* 

I 2 S * 
-1 2 9* 
130* 
131* 

1 32* 

1 3 3 • 

| 34 ♦ 

I 35* 

136* 

I 3 7 * 
13 3* 

1 3‘7* 

J Sr* 
-|-H I *- 
1 H 2* 

— J S 3* 

1 4 4 * 

. . 1 s 5 • 
M'.* 
„. 1 S 7 •. 
IS?* 
...149* 
ISO* 

1 5 I • 

15 2* 

1 5 3 • 

154* 

. . 1 5S* 
l 5 A « 
... • J 57* 
1 SI* 
__1 & ?• 

1 s r. • 

l 6 1 • 

16 7* 

— 16 3* 
1 64 * 

_jL_l 6 5* 
16 6* 
16 7* 
1 6 5 * 
l 6 -7 » 
1 7 n • 


NNcZ { NUM? ) *> 1 
-t- 0 c N 7 . — »— tOC N2 — + — 1' 
P N Z * L 0 C C J Z I 3 Z1 
-tt-0 -£-2 — •?■■) — ** — i 

LOcOZ = LPCOZ ♦ 1 

V 0 7 1 1. 0 G 0 7 ) —a -51 1 

R E T U R M 



2-00 — C'OmT-I wufr-- 


Z l=RSR*ZM*zT*SU p E(T)< 

-7. 2— »— 5 U P E R * • R 5 R * 2 T *40 1 - Z M )- 

23 “Ol 


58l4 0 
-&8l S 0 -- 
58lfe 0 

_S 3 l-7-o 

sai 6 0 
- 53 1 ?q - 
S820q 
S 821o 
5822o 
~ 5B23o — 


75 “ pi 

j p._ I-ye-sZo-m) — ( 5 , 3 — T-0-?50 


C PRINT Z COEFFICIENTS 
C- 


1F •GP«lMT* i!R 1 TE t A, 6 ? I 1 Zl,Z2.7 3 »Z‘5»Z5 
674 ... F OrMAT ^ 1 !> x -i -HE5 4 0VE-— / s f * 2 » 2 7 * 1 * 2 ~ NUH-* 2 ( -5* *-l^*-E I 2 .-5 ) -/S3X--r 
1 *r;FN’»3<5X,pl2«5ll 

R 2 0 -02*22 




RR 


0** 


-P R 1 N T- C 0 E F-F K- 1 E N-T S_ — 

4F — LOB-H «-l.T.E4.A-».6 2 2-l~R-L,-nZ-*R 3*-R4— 


62 2 FO^IAT ( 75 j X , • R NUy « , 3 < 5x » I Pe 1 2 , 5 1 'S 3 x , ' 0 En » , 5X , E 1 2 . 5 J 


..c. 

c 

C 


THE FnLLOnlNf. IS uSEo FOR HYQU t ST aNA LY SI5 
numerator coefficients 

u-0 = tO£--N * 1 


-c 


P N N 1 1 0 C N > * R 1 

L 0 c N - = I. 0 C N + 1 

P N v <LOC'J> a R 2 

t.n C N-= Loom -1 

pf.'H 1 1 , 0 c rf> * R3 

aiLWf>h;+jj4^T-J.-? - c 1 E P - F - ).C J - C.1+* S- 

L 0 f 0 = LOCO ♦ ] 

. . p p_.( L 0 C n 1 ~...RS 

NNc P ER I NUN POL 1 a 3 

— NOc p ER l N U frs P 0 L-J — “—4 

RET'J^n 


7ERO O-RDER HOI D -SELECTED 


00021 6 
000221 
OOOZ23 
— 000226— 
000230 

— 000233 
000235 

-0002 35 - 
000235 
— 0002 35 
000235 

— 00024 1 
000241 

--'000245 

000254 

0 00256 — 

000260 

— 00 02 6 1 - 
00026 1 

■000261 ■ 
000261 

000261- 

000263 
—000277 
000277 
• 000277 

000302 
— 000305- 
0003 1 0 

— 0003 10 
0003 1 0 

■ 0003 10 
0003 1 0 

000 3 1 2~ 

000325 
-■ 000325-- 
000325 
- 000325 - 
DO D 3 25 

000325 - 

000330 

- 000333 - 
000 3 35 

— 000340 
000342 

000342. 

000345 

000351 

000353 

— • 000355 

000357 

0 0 0 3 5 7- - 

000357 
000357 
000357 
OH 0 3 6 3 
000363 


2 5 0 C 0 T I N U E 
7 0 H 1 c ? 1 


___ 

003 1 * 
n o 3 t -7 

j 7 n. . 

003 2 3 
..0 032 .' 

1 73 * 

1 . 7.4 * . 


D 032 1 

175 * 



-00321 

_1 7 6 *... . 


00 37 1 

1 7 7 • 


0037 ! 

.. j 7 a * .... 


0 0 3 2 l 

1 7 9 • 


003 3 : 

. I 80 *.. 


0 0 3 3 7 

1 6 J • 



00333 ..- 

— I 82 * 


0033 * 

1 83 * 

„ , 

0 0 3 3 5 

1 64 • . . 


0 0 3 3 * 

185 * 

— 

..00 3 37 .... 

l 56 * 


0 0 3 V' 

18 7 * 


00 3 3 ' 

1 4 n * . 


0 0 3 3 7 

1 8 ? • 


00337 

_ I 90 *._.. 


0034 m 

| 9 l * 


00 3 5 li. 

| 97 « 


00 35 m 

193 * 


0 0 3 5 '' 

1 9 4 * 


nCjc;;, 

i 9 b* 


0035 '; 

196 * 


• 3038 ’ 

1 9 7 * 


. 0035 2 .. 

1 9 6 • 


00 383 

J 9 9 * 

. 

- 0 D 3 5 2 

..._ 2 U 0 *..~ 

cn 

00355 

201 * 


.. On 3 5 i*._.. 

.... 202 * ... 


0 0 3 5 f 

? n 3 * 


0 0 3 8 7 

.204 * ... 


003 '-I 

208 * 


003 *: ... 

.... 20 ** 


003 *;' 

20 7 * 


00 3 6 .*- 

. 2 0 8 *... 


00 3 *'' 

20 9 * 


_ 003 6 I-. . 

... . 210 * 


0 0 3*7 

21 1 * 


.00 3 7 0 - 

.. . 212 * 


0037 • 

213 * 


00377 . 

214 *. . 


00 377 

2 15 * 


00 3 7 «*_ 

2 1 ** ... 


^ 037 '. 

217 * 


00 37 / 

2 5 8 * . 


00 3 77 

2 19 * 


0 u 4 n i - 

270 * .. 


D 04 Q 1 

22 1 * 


00 4 n 7 

222 * 


oospr 

223 * 


o □ 4 o 

2 7 4 * 


on«(i 

2 25 * 


004 V' 

27 ** 


D 0 4 r. : 

2 2 7 * 


Z0n2 e Z2 

._Z04^-=-rtt~ 
Z0(.;4 ■ -n | 
■ - 2~Q m — . . 3 . , d r) — 


5 8 65q 
-58 6*0 
5 B 4 7 o 

-5 8600- 


p W I N 7 2 0 H C n p p F I C 1 £ N T «? 


IF l SPRINT} '.'’HI T E ( *,62 3 J Z Oh I , Z 0H2 , 7. 0N3 * Z OH 4 , Z OHS 
JLZ2 FOnHAT.li-1. 0 X I JuiE-*. .S,**2j-x2 5 -v-»JL;_o h NUtC », -? ( ^ t -Lp-sJ-2., Sl/ . & ^. 
1 ’ n F M • • 3 < 5 X , F l 2 • 5 ) 1 

ft Ow I * ZOM | *Z0H2 : 

h 0h 2 a -n?*znn? 

f< o p 4 = n 7 

kOh-^-* -0 2 


PRINT ROh CnFFFIClE^Ts 

IF ( (5 pH I NT > 7 rM TF < 6 , 6 zH » rO !H 1 , roh 7 » ROM 3 » R OH 4 * f( OH^ 

_6^L_F:.0.piVATJVJi/i^ + -!4<^i1_44-HFW-»-i.t^-*4PE-l-?-*^-W-&3x-»^DFkJ-»-2-L s -X-t-E'l'2-i-^44- 


50 6 9 o 

-56 700— 

5 B 7 I □ 

58720 — 

58 7 3 u 

„5y.7. 4 0__ 

58750 

.5B76q — 
5B77 0 
5 B 7 8 o 
5 8 7 V o 

-5S BUo 

5 S 0 l 0 
- 5 0 R Z o 
5 8 6 0 0 

5 8 8 H o 

5 8 8 50 
.588* y. — 


0003*4 

--•00036* 

000370 

— 00037 1 — 
D003/I 

— 00037 J - 
0003 7 I 

— 00037 1 • 

0 0 o 3 7 
— Q ft 0 B 0 7.__ 
OOOH07 

— 000407. 
OOUB12 
000415 
000420 

— 000422- 
000422 
■ 000422 
000422 
000422 
000423 

— 0 n 0 '* 3 7 - 


-T H £ ...F 0 l. L 0 ' v I -M 0 . I S-U S E pt- p 0 PL .. 11 Y « u .1 S T. .. ANALYSIS 

. i'UHER aTOm Cnr FF l C I d-T«; . .. 

LOcN s LOCN ♦ 1 

f».U — S-_H.oHl 


LOcfl * LOCN * I 

EIJjo—Ll.O C U -ROM 2. 

L 0 C N * LOCN +■ i 

_. .. f'Nij. I l 0 C N 1 = f< 0 M 3 

r>EN()K] NATO* r (’ F F F I C I r * i T 5 

4.. O^fl— c.-inrl) — i — J 

P D t L 0 c ^ J * F> 0 H *♦ 

- v LOcO- a LOCO - + . 1 - 

PD < L 0 C P » s P0||5 

_. NNf.P.EH < LljriPOL > * -3— 

NOcPEft l Ni.IMPOL J = 2 

LF — E S-Z. nl- RR -y^iR-N- 

NUmZ a NUMZ + 1 

_.liMC.ZI«Ufl2) ». 2 

1 


5 8 6 7 o 

000437 

5 0 8 0 Q 

000437 

5889 a 

00D437 

- .. 5 B 9 0 □ . 

000437 

5 9 9 1 q 

000437 


- 0 P 0 4 4 2— — 

5 8 9 3q 

000445 

5 8 9 4 q 

0004 4 7.. .. 

5 8 9 5 q 

000452 

5 8 9*0 - — 

000454 

58 9 7 o 

000454 

-5898 q_ . 

-0004 5 7 

5 8 9 9 o 

000462 

590Do ...._ 

00 0 4 6 5. .. 

■ 59q j o 

000467 


59020 
5 V 03 0 
-590.4 0 


L 0 c N 1 ° L U C w 7 + 
PNZfLOChZ) “ Zj 
L 0 C f? 7 » L'-'CfjZ ♦ 

J?N 7LLQ.C.\:Z )-.= .-2.2 
'■! D c Z * n u Pi Z > = 2 
l 0 c D 7 - j n t 1)7 + 
PL’Z ( LOCOZ > » 01 
LOcOZ * LOCO Z .. +... I. 
PD 7 (LOCOZ > n 2 0 H 4 
-RETURN- 


1... 


3 iolo- 


A / 5 • 


5908q 
5 909 q 
59 1 0 0 
59H o 

S 9 i 2 o 


- U00472 
000474 

000 4 7 *- 

000503 

- .00 0006 

0005 > I 
- 0005 1 H 
0005 I 7 

DOG 5 2 I.. 

000524 
... 000525 
000530 
_ 000533 

00053* 

0 0 0 5 H Q_ 

000540 
. 000540 
000540 
000540 
000544 


300 COf.'T I nUF 




. Q 04 P/ 22 9 * 


1 F { ,.NOf ' Y£S?OH > TO I 0 1 Q 
—A T? 3 R S i? • 7 T-*-Z T.«, s U P £.*» k; 


00*107 230 * AHT 2 b AT 2 * 7 !M 

0 0 J 4 2 3 ) • A H-rT-Z 3 A H T-?-*-Z-+* 

0 D 4 j ] 232 * Z 1 B a^ 2 T 2/'>2 

- - 00*4 r.’ . 233 , *2 -«--( 0 ?*AMT 7 . + AT- 2 - f , 2 *AH 2 T 2 .)- / |V 2 

CD*M‘ 7 3*1* 7.3 = l AT A;-'T2* am 2T7. > Zt'2 


-- O0*i I 1 - 2 35* — Z‘4--= p i — 

r 0 *n ? 2 3 A * 2 5 s - o 3 

n p h j , 2 3 1 * Tt~ s—V 3 

OOH { 7 2 3 9* 2 7 B -01 

- ■ 00*4 I 7 — - 23?" C - 

OOM? 2^* C 

• C 0 H j 7 — 241* . c ?E-RO--pRnEP HOLO-SE-CEc TED 

DO H l 7 2H2* C 

0 0 4 7 r 2 » 3 * * 0-m-1-*-Z4 

004 2 1 2HM* 7 0 h 2 “ Z 2 

— DOH?;- 2 4 r > * • -Z Oh 3 3 Z 3 

0 0 4 7 3 2*16* ZOliM ’* 0 ! 

-- 0 0 H 7 *• — 2*47" - 20h^-»--()2 

0047!' 2 4 P « Z o h 6 * 0 1 

0 Oh? ( 2 H ? * Z-mr?— ■ — D P — — 


S?l3 0 OO0S44 

59 1 *+0 --- 000S4& 

5 9 1 So 000552 

, 5 -9- 1-6-0 00 05 5 4 

59 l 7 o 000556 

J, 5 <j 1 go 000560 

5 *? I ? q 00 0 571 

59 2 0 o 0 0 0 5 7 6 

5921o 000600 

7 — 1 59 2 2o 0006 0 2- 

5923o 000603 

- 59 2 4q 000603 • 

5?25p 000603 

5 9 2 6q 00 0*0 3- 

59 2 7 0 Q 0 0 6 0 3 

-59 2 Bp 00060*+ 

5? 2 ? 0 000605 

59 3 Do 000606 

593 10 0 D 0 6 0 7 

5932Q 000610 

5933 0 00 0 6 1 2 

59-3 4 o 000 6 1 3 



0 04 2 / 

250 * 

C . 

- .. 

n d 4 ? / 

_ 2 b 1 • - 

c- — 


'J 0 4 ? f 

25 ?" 

C PR 11 

- 

0 0 4 ?/ 

• ? 5 3 • 

C 


OOH ? 7 

254 * 



O 0 H 4 1 

? 5 5 ■ 

^ ^ | | 


0 0 H H 1 

256 • 

1 


0 0 4 4 ;• 

- 257 *. 

1 

1 

COHH? 

254 • 


— * 

DC 4 H *: 

. 25 9 * . 

i 

CO 

DO H 4 ! 

?*n* 

1 



0044 / 

2 L ) * — 

— 


0 0 4 »1 7 

2 * ? * 


... 

-00 4 1 . V 

- - 263 *. 

c 


00 4 4 7 

2 6 ' 4 * 

c 


C D H 4 7 . 

.. ... 26 5 *. 

-C pRl 


0044 7 

266 - 

C 


0 0 4 r / 




DOHA! 

2 * 4 * 

63 2 


n o 4 6 1 . 

— 2 6 ?*-- 

c - 


004 6 1 

270 * 

C THE 

..... 

0 D 4 A J 

27 )*. 

C 


0046 1 

272 " 

C f;UM 



..OCH a 7 . 

. — 2 7 3 *.— 



Oft 4 a* 

2 7 4 - 



0 u 4 6 ‘ . 

.2 75 - 

. 


00465 

27 6 * 


_ . T _, 

. 0046 /: 

27 7 *.. 

... 


00467 

27 P* 




? 7 9 • 



0047 1 

20 p* 



D D 4 7 1 

. 20 1 *.. 

... . C..... OEM 


0047 7 

2 P 7 • 



4 fj tt 7 •; 

2 A 3 • 



OO 47 '* 

2 0 “ • 



priht 2 oh coefficient*; 


IF < 5Pr]i4t> Wr 1 T E ( 6 , 63 1 1 Zu^ 1 , Zr»H2 , Zoh 3 * ^0H4 » Zq^S , Zoh* I Zom 7 

F-O-p-N A.T-ly- 4 -ay-^-ifl.E S-l-fH+E-- / S « • 3 . P-& 1 - 2 -* 5 +^ 5 ^-x~t- 

* D F f ! * , 4 ( 5 X , F 1 2 . 5 ) > 

p Oh 1 =7 OH 5 +- 7 om 2 + Zou i _ — 

KOh? c .Z0h t - 7 C'M2-03*7OH3 

«Ch3 = -Z0k:1-Z0H7 + D3*Z0h3 - 

P 0 H 4 - Z 0 H ? » 7 a H 1 - 2 (■ H 3 


R 0 1 1 6 


R 1 M T . ROm-COFF P-T C-I-^N-TS- 


I.E-J-CP B I ■MXi-BR.ll.E-j-frt-a 3 JZ.l_RQ W -l^aH 2 ^. 0 H.lAROH-H-,.R-fVHS » ROH*- 


LOc-U— = — l a r — 1 

PMr: t L <3 c + 3 rohi 

t D C U s. Lr.Cfi ■■■*- 1 

Ptifi IlOCN) 3 R0 H 2 

|_0 C -N- B. L 0 c N— ~ -1 

p N M < L 0 C N ) » R 0 H 3 

l£LC-N...=_in.C b!~* — l 


PNri <t.OCM) » Rr)H4 
ni-ijiiAioi? corFFic.li 
l. 0 C 0 = L 6 c n ♦ 1 

PD U.CiCo) = RDh 5 
l OfO * L-'rO * I 


5935q 000613 

- 5936q - - 0006 1 3 

5 9 3 7 0 00061 3 

59 3 b q — ■ 0006 1 3 

59 3 ? 0 0006 1 5 

1 5 9 4 Q q 0006 33 • 

594lo U00633 

5942o 000^33 

59 *4 3o 000640 

5 9 4 H q .. 000647 

59 4 So 000651 

5 9 h 6q — - - 000654- 

594 7q 0 0^656 

594 Uq 000656 

5 9 4 9 0 000656 

5950q 000656 

59510 000656 

5.9520 00065-7- 

59530 000674 

59540 . - -000674 

5955o 0C067H 

5956q 000674 

5957q 000*74 

595^0 000674 

5959q 000*77 

...... 59600 - 000702 

S 9 6 lo 000704 

59 6 2o OnC 7 0 7 

59630 00 D 7 1 1 

59640 0007 1 4 

5 9 6 5q 000 7 16 

5966o 0007 16 

59 f 7 Q 000 7 2 1 

596E-0 000724 

5 9 6 V Cl UODV 27 


Hi-9 


00*7'.’ 

. . 03476.— 
0047? 

Q.D.So:: — 

0050? 

0 0 5 0 1 

0 05^ ; ' 

D 0 5 n 5 
OOSn-- 

OOsn? 

005 ! •» 

005 1 1 — 

005 1 2 
DU5 t ^ . . 
DOS 1 * 
0 0 5 1 5 


? f* 5 • 
„2 8 6*. -- 
2 0 7 * 
„.23 ? 

2 ft9* 

_. .2 9 0 • .. 

2'M * 

, . 27?* . 

2? 3* 

... 2?4*„ 
295* 

2 9 4* . 

297* 

... 2 9 !? * 

2 99* 

300*— 


00 5 1 * 

30 l * 

00517- 

30 2 * 

005?'; 

303* 

.00521 .. 

30 4* - 

005? 1 

30 5* 

0052 L 

306* 

005 ? i 

307* 

0052 1 - 

.. 30^* - 

005? 1 

30 9 • 

0057 .> 

310* .. 

0057 1 

3 11* 

00525 

— 3 1 2 * 


PO l LOCO > a ROh -6 

rJ M c p E R-i-W U 1 1 P 0 L-J — * — 4 

MDePfR < NUMPOL > ° 2 

_4-F — C- * «-0X^*E.s241-L^e^luK.N- 

Mt)MZ o N h m 7 + 1 

..11 f! c 2 l.NU 0 2 J a . 3 

LOc'l? - inCN7. + 1 

- P U 7 U. 0 C N 7 ) ■ Z 1 

LOctlZ * LPCNZ + I 

fi.fi ?-( U>CU7 1 -a— Z2 

LOc m Z a LPCNZ * 1 

.pN7 { LOCOZ Z3 

mDc Z t tiunz ) = 3 

LOcOZ * L0CD7 ♦ 1 

pn/docnzi * ZoHh 

_u Oc.U Z— 5 -4. AC 0-2.-+ — 1 

PD? < LOC07 ) = ZoH 5 

.UQr OZ .= -LOCO? ♦ 1 

P 0 7 • l. 0 C 0 7 * = ZDH 6 

RETURN 


59700 
-59.7 10- 
5972 0 
.39.7.3 q_ 


000731 
- — 000734- 
000736 

00 Q 7.4 0 - 

000745' 

000750 

000753 
— 000756 . 

0 0 U 7 6 1 


PRINT ERROR mE5$AG e * 


T H rEr zErOS» euT ZOH MOT REQUESTED 


l 010 CONTINUE 
. . )<OoE.-« *»8 

RETURN l 
-£-»o 



“ U £7 * - 

000766 
000 7 70 — 


000773 

. D 00 7 7 4 

000777 
0 0 1 OP 2 


00 t U04 
. 001007.— 

.. — 5 9. 7 6 q 

DO l 0 1 2 

DO I Cl l 4 

59 7 7 q 

001014 

5 9 7 ft q 

00 l u 1 4 - 

59 7 9 □ 

On l 0 l 4 

-59000 

001014 

590 1 o 

on 1 020 

59 ii 2{j 

001020 

590 3 o 

00 IU2 l 

390 ‘1 o 

— 00 1 073 


END OF COMPILATION! 


NO 


D I A on 05 T I C 5 • 


r 'Hro'JT InE: MZT^'AN 


entry point o o j 2 2 ^ 


storage use 0 C9CE < LL.D. 0 125 D: nAT.Aia_L_.nnol 6 o.;...aL *_£] «— c-Q m m o.ru.2 .Unarm or 


x_0 M M 0 N.-M. OCX. SJ 

OQ03 ■ KEEPS.. O0nn7.4- 

i00« KEEPB 000342 

- ino& • KEEP 1 M - 000031 

1006 KEEP20 OOn’27 

1 o 0 7- — - < K E P-? 1— 0^ 1-4-33- 

m in CR'JO i ooan^s 

- -10 i 1 — COi.U? ■• 00 12 15- 

1012 CROOH 000002 


.EX-IE* 'i t t — R E FX^£ ;iC.CS.-2.f^A(^U--U AM 1 


n a G u s . 
N ! o 2 -5 
EXP • - 
S 1 ’i 

-cos 

C 5 r m 
. c a o s _ 
N L R 4 3 < 


,S. r _7 K A Sp_ A 5 5 I S.NM EM T. 


t REJ_A-I..I-V.-C LO C-A J- I- 0 N .i — y, AiiE. 1 


JJOl . 

ioon 
.1 Joo 

11)0 5 
J 005-9- 


000061 
00 1 0 00 
n 0 0 0 5 7 
00 0 D 2 5 

.n a o o 1 6_. 
000073 
cun7a‘i. 
on i o2o 
.001212 
000077 

GO? 3 2.). 
•Olio 0 3 5 
non o 0 ? 
0 000 2 2 
000300 

000007 
_Q.ilJ3.0Q L 
000027 
no G O 3*4 
noon l *4 
no.ro 1 7 


i Cl 

6nnr 

6n 5 F 

DEr, 

-O- f i 

GPR I NT 
LOCO 2 - — 
M»C7 
.N'JMpOL- 
N 2 

P.i 

* 0:4 1 

- 

R 3 

SUPERK- 

T 2 

.Jt ESgU . - 

Z 0 H 2 
Z0o7 ..._ 
I 2 
Z5 


0001 . .-. 0003 * 5—1001 

0000 0000 1 1 60 1 F 

. 0003 - - n Q 0 o 7 o 60*F- - - 
0 0 0 5 Ft 0 0 o 0 1 2 1)0 

_d aoA_c~aaoia.Q O—^sx^ — 
0005 c ononoo half 
.. no. l u. i-_ao l z i y. t o c n - 
0012 OOOnOO nE^Z 
...00 U? „4._0 0 0 7 Q 2 ;ji) M 2 . — 

cno^ ooou 3 o n 3 
...a n a5„„a.ao,>.2 l._*u-2- — 

on i G q noon 3 6 -,oh 2 

0010 ,?.OD 0 g ^3 w 0 H 7 .. . 
no 10 ;t GoOi .,23 y '4 
. 0 q a 3 . 0 0 0 0 9 3 TO- — 

noio r onoaio t 3 
.iiaol_L_nxiD a7n._T£ S2QJ 
non r onoo 3 o 70H 3, 

. 010 * 4 - C-iGOOnOO 7 »’ 0 lE- 

oiim r? noon 15 z 3 


-0001 000571. 

ouon 00 0 0 22 i 

noon — ooo i o i... ■ 

0005 R o D 0 0 1 3 i 

„OO.J 5-C— o-oaoio— 
oono ooo i 3 0 

.. .00 0 7— .1—0 00 7 0 3 - 

0006 I nQO 2 26 

...000a...!.. 000 3l 4 1 
0005 C 000002 

_-QOl.l.-...R-aUOQOCL.. 

O 0 1 M R 00003 7 
0 0 0 5 0 i) 00 2 3 

no l n r o lino 2 h 
oota.-c. 000 002 
on i n r ooao i i 
_aou3_ -R— ao.oo a2_ 
onto r oooo 3 i 
-oo u i R-nnoooi- 
non r o o o o *♦ *♦ 



. ..OOOt- fiOO 7 22...1 Sot — 0901 - .-OOOISS 5 0 l 

nooo oaoo 33 *o3f 0000 000045 *oRf 

--OOoO- 0OUU3 60BF 0003 L- 000071 BOTH 

000 s R 00001** 0 2 0005 R 000015 d3 

00 0 5 n 000 1 2_F4 F-T-Y 0 0 0 S-C-00 0 0 D 6 • F 0 u R 

OOO 3 000067 ITHZT 0011 I 0Q121R LOCO 

0 0 0 3 - j-- 0 000 7 2. MODIFY —001 1 1- 001077 NdcpER — 

OOtl I 00076*4 N nCPER 0007 I 0 0 0 7 q5 nnC7 

0 00 3_.. . 1)00004. NZT 0005 000026 Nl 

00*11* R 0 9 0 3 1 0 . P D 0007 R 00034 1 PDZ 

0 Q O 2— R— OOOGJO—pNZ OOOS 000024 RAD^^G ---•• — 

0010 « nnoo'ia roh** unia h ojoohI roh5 

-.00:0 R oOilOZrt R 1 - ■ Ooln R 000021 r2 

OOtO R 0000 25 r 6 00 1}5 OOP 022 SmAlL 

.— QOn 5 c 0 0 000 4.. T «0 On 10 K ojouq* Tl • • 

0010 ft 000012 T 5 0010 C OQOOOO VAL 

OOQ^-R— 000 2Z6.-2MA(i 00 1 O- R-000 0 26 -ZOHl- : 

OOtO r 0 0OU 3 2 7.OH 5 • 0010 R 000033 ZOh* 

■ 0 Oo 3 -- 000005 • ZTV AL- 0010 R 000013 Z1 

0010 R nn.J0i6 ! Z4 onio c 000004 Z4 T «o 



OOlOl. 


0 0 J 0 3 

2 * 


3 * 

0 0 j n ( 

N * 

Q DJ.0 1 

.5*. 

00 ] 0 S 

6 * 

00\n T . . 

.7* 

DO l n f 

8* 

. 00111. 

R • 


5?BS 0 _ 
59e7 a 
.5 9 8 8 q . - 
59900 
3-9-9, 1-0-. 


.5999a-- 

5995 0 


no ut 

00 1 1 

□ Dili 
.. 00M 1 
DO 11 ‘ 
CD!!'* 
non i 

do 1 1 i- 

rows 

001 1 > 

00117 
.. 0012] 

0012 1 
.— .00 1 2 1 - 

881 1 1 


881?! 

0 a 1 ? j 
00 12) 

00)21 
00 12 1 — 
0017) 

00)21 .. 

00 1 2 1 

0 0 l ? ) 
0017} 

0012) . 
no l 7 ] 
00121 
0013) 

. 001 31 

CO 1 3 l 
.00131.. 
0013 1 
00 13 1 
00131 
30 13 1 . .. 
“013 1 

r 0 1 ? > 

00 1 <i 1 
.00 1 H 1 ... 

00 1 H 2 

_C 0 1 H 3 

0 0 1 V h 

. no t hv 

0 0 1 ') i 


Ci 

t 


CT> 


in* 
—4 1 •- 
1 2 » 
.. 13*. 
1 H* 
IS* 

1 *• 


SUn90l)t ujUjC , &Tr , R J 1 ,oS_R^R5.I > — — 

COmMOn'K^pS/ SOPC9K»ZT.ZN»T0»NZT.^TvAL { 50) 1 1 ThZ T » YES ZOH • 0 0 TH » 

.1 MOD.ir-Y..GPK 1-NT-... ... ■- — 

t.0 G I CAL y£ 57.0« iaOTH,«nO IFy » gprint 

„ CO M 0 N 7 < F r a 8 / 2 P n 1 H A £-1.7-5 J_» N7.pQL.El 

CDmPLEX Z p 0 (_ F 

fp l.H/.H aLF t one » T'*'o »p°UR , F I r.TEN ♦ 0.0 1 -,-D ? r D-3 , O.ft., F-l F.-t-Y-, P I* 

1 pI2,sMALL*RpI.RA0pE5«r>EG»Nl»N2,N3 

.. .COmPLCX.- * ONE 1 T .VO > fOUK ♦ F ! F--TEM — 

C 0 : v ! 0 1 J / >< r c a 2 n / £ 3 T 7 ( 7 5 ) 1 N E s 7 7 

—G O ca P LE-X £ 3-17 — ; -~~r 

COMM0 r| /KEE p Zl / P ( ' lZ <72 5) » POzt 2 2 3),N'JMZ»L 0C NZ»LOCDZ»NNCZ(75),NOCZi/5) 

— C.O .* » au / C r I j 0 U- v A L , T E fUl * Z *} T * 0 » - - ■ ■■— -- 7- - ; v c 1 1 9 0 

l Tl,T7,T3,T J< ,Tc;,2l.zZ, z 3,Z 4 »Z 5 *K t »R 2 »n 3 »R H «R 5 »R & » 39?? 0 

...2 ... . ZOm 1 , Z0H2 , Z 0M3 *ZOH^ 1 ZOH^ ,Z0h 7 »— 6CO0 a 

3 f<OHi,RDHZ.ROR3»ROM t l>ROH5,ROH6,^OH7»Z3N 

V-A L-, j-CR-M-iZ *1 TA/y- . 


*00 l 0 


-G.QkJB.LEX~ 


1 A* 

IV* . 
20 * 

. 21* 
22 * 
_.2 3 • _ 

2 H * 
25 • 

2 * * 
27 • 

7 ° • 

2 9* 

30* 

...3 1 • 
32* 

33* 

3^ • 

. ■ 3 5 * _ 
36 • 

37* 
33 • 
39* 

9 0* 

-_y i.*_ 

H 2* 
*13* 
NH • 
**5* . 
HA* 
... *1 7 * 

H • 

8 9 • 

So • 
.51* 

5 2 • 

_ 5 3*. 
5H * 
5 5* 
5 A * 


C0 m HPn7cRUO 2/ PNN t 200 ) , PO ( 3n0 ) ,‘jNCPER(75) ,NdC p ER 1 75) » 

.UU.'IPOL »LOC n iLoCO : 

c 0 * 1 M 0 ri f C p u 0 9 f N E :} 7 , Y E 5 1 M 

- -LOgICAL ... - - Y E S 7 M • - -• — - - 


C r _N N a r R..\y _ c on T 5 J. IIS . -A 1 L - N U M E J3 A T 0 r pOL Y 'ION-! a L...C0EfF_1 C IEnTS — 

C NNcpEr.. ARK AY -_N Um bE(? 9F„C0?FFIC.IEmTS p ER n Um£r A FOR.. P 0L YNqm I AL 

c 

C L 0 f N 1 1 ^ j 5 t aaI_UD. r ft n r, N .IjH-fLSL 


_60n7u . 

*ooVq 

... *0100 ■ 

*0 1 1 0 

_*0 1 2 q _ 

*0 1 3q 

... * 0 1 H a 

*0 1 5q 
60 l *□ 

601 7 0 
jWU 8 0 - 


C ' - 

c PD A R p A Y CONTAINS a LL D^NO^IMtOR pOLyNqmIAL COEFFICIENTS 

C mdCrEr ARKAy - N Um oEr of COEFFICIENTS pEK DENOMINATOR POLYNOMIAL 

-C 


*0 1 9 q 
.60200 — 
602 1 0 


— * 0 2 2q . 

A 0 2 3q 

6 0 2*1 0— 

C "lOCdEn - PD ARRAY ST.ArT pOSlTl 0 N FOR EAcH NE |V oENqmINATOR POLYNOMIAL *02&U 

c 602*0 • 

j. ._ ^ * 0 2 7 0 


IF. IGPKINT.) ,;;RI TE1 6,*00> . RTr tRT , ,RSR ,RSI 
600 FORHAT^/XlOxtlPElZ’^^X.ElZ.StlOX^RESlOuE’iZlSX.El 2 ^!! 
1 r t» | -N G-~f Z 0 — T 0 — 4-00 


p E A L 


M 0 N - Z E R 0 


R 0 0 T 


Z 1 0 SUPEPN*RSR*Evp t KTR* z N*7T ) 

JZ2—?._fl4 

Z 3 3 -EXPtRT^zn 

. lf..<BQTH> GO TO In 

nZ p ole=n7polCM 

Z3rJ B -Z3 

ZPoLEInZPOLeI^CMPlxIZIN.O.O) 

7 M Mi. UM LS D L E-) b~ A.4 S t-Zi), 


.. *02 & a.. 

*029 0 

_6Q3Uo~- 
* 0 3 l 0 

6 0 3 2 a ._ 

*0 3 3 q 
.. .* 0 3 H 0 . 

— * 0 3 * 0— 


*0380 
*0 3 9 Q 
* 0 H 0 0 
*0 H 1 0 


10 CONTINUE 

I F.. < YESZOH.I 5 0 T*0 50 


* 0 9 3 0 

* 0 H H □ 

* 0 H 5 0 


oooono— 

000000 
— .000000- 
000000 

OOOOOQ 

ooooou 

— oonooo . 
ooooon 

—. unoooO 
oooono 
— ciaooou 

ODOOOO 
.. .. 000000 
ODOOOO 

oooono 
aaoooo 
— onaooo-. 

000000 
.. .. onouao 
oooono 
. _ ooouoo 
ooooon 

— oooono 

oooono 
. ooouoo 

oooono 

. ODOOOO 

ooQuon 

jDoauoo- 

ooouoo 

— ooaooo 

OOOUOO 

- OOOUOO 
OQOOOO 

— oooaaa - 

OQOOOO 

— ooooao 
onoooo 

.... ooouoo 

OODQl 3 

— 00001 3 

anoo 1 3 

— onou 1 3 

onoo 1 3 
onoo 1 3 
onau 1 7 

— 000032 
□ n 0 0 3 h 
000013 
UOOO H 5 
... 000 0 50 

ODOOS 1 

___Qnoo5* 
0000* I 
. 000061 
onoo* 1 



R } f|-f — Z — C 0 EFFICIENTS-- 


( — >v R i-l^- ( / , r -^O-VJ — 2 * -, z2-tt-3 — 


604&Q 
60*47 q 
6 Dm 8 o 


601 F0 B MAT ,/ 51*.' Z NUm» tBx.lPEU.S/Ox^QEN^zCs xtEiZtS M 

R 2 = - 2 1 __ 

k r*Z?-Z3 


6 0 S 0 o 
605 1 O' 
6052 0 


C — pRInT-R COEFFICIENTS 

c 


602 


{ p._ . ( p R l N T 1 ~ ^ R J TE-f 6 .602T R 1 , R2 » p3 , RR " "" ' 

FORMAT I'SUU'R NUm' »2(5x.1PfI2.5>/53 x /DEN , 4 2<5 x , E i2.5) 


C The FoLL0«l*G 15 U 5 E p FOR N Y t jU | ST ANALYSIS 

C NUMERATOR COEFFICIENTS 

-tOcM ** • L 0 C N- • * l ■ 

p K' »g f L 0 C N > “ R 1 
t Of 1 N ~~ n ' ■' ■ Co C H 1 ■ 


p t j ik, I l 0 C N 1 16 R 2 
C -• fj£-NOM | N A T OR • c 0 Ef f I C I E NT S 
LO C 0 = -L ° C 0 ♦ 1 

p D •• I-t OC 0 ) • c — - r -* 

U Or D 5 LOCO * I 

R-*» 


-po-it-oc-: 


MN C PER J NUMPOL> * ? 

• N D c P ~ R * N l-' H P 0 L 1 - 2 

return 


C 7 CR-O-F; ROE *— H 04.0-5E LCc-^E-O- 


50. Com! I nUF. 
ZOh 1 ”Z 1 

Z Oh 2 s - Z 1 - 

ZOh 3® Z 2 

.Z£LhR«?ZO 

2 0 h 5 a on 


C PRINT ZOh ■ COFFFt ClE-Nrs 

1F-_(.5PR.I 6 A T.JL . -i 1U-I EJ. 6.U.3J_. £.0 h 1-,-Z O H2 .» 7 OH 3*Z 0 H “-,-Z OH 5 


603 FOpM A T 1 / <?9X * * z 0rt rJJK*»2<5A.tPFl?.5)/53X,*0F N »,3t5x,El2.5n 

R 0 H 1 a -0 2 • 2 0 H 2 -- -■■ - '' 

^Oh 2 s z OH ?*Z 0 H I 

R 0 p 3“ Z 0 H 3 * Z 0 H 

ROh 8 a 0 2 » ZOH 3 

HO H 5jLza>a-zOHii — — — — 


C PRINT ROM COEFFICIENTS 

IP < c* f» R T “ T J 1 ‘ i< I TE I 6 , 6 o*n R0nl*RnH2.R0H 3 iW0H8»R0H 5 


— -60 S 3g - 

6oS8 0 
— • " ■ 6 0 5 5 0 
60560 

— 60S 7 0 

6 0 5 ®Q 

. — 605?0 ■ 
6Q600 

6Q6 1 o~ 

6 0 6 2q 

— -6063a — 

6068 O 

6065g 

6 0 6 6q 

60 6 7 0 

606^0 

6 0 6 9 0 

60700 

— 6 0 7 1 0 — 
6 D 7 2 q 

6073 0 

607*40 

60 7 5q — 

607 6g 

— 6Q77q - 
6 D 7 8 0 

& 0 7 9 0 

6080Q 

608 lQ — 

6 0 B 2 0 

6083o — 

60 8 *4 0 

6 0 B 5 Q 

6 0 8 6q 

60 0 7 0 — 

60 8 8.0 

60890 

60900 

60.9 10 — 

6092 0 

— - -60930 

609*40 

6095a - 

60 9 6 0 

6 0 9 7 0 — 

6096o • 

6 0 9 9 0 — 

' 61000 

6 1 0 1 0 

6 1 0 2 0 


000061 
00006 1 - 
00006 I 

-O0C06H 

0 0 0 U 7 *4 
-00007*4- - 

OOGU 7 6 
000077 - 

000 102 
-000102 — 
000 102 
- 000 102 ■ 
aoo 102 

000 1 ns - 
000120 

-000 12a — 

ODO 1 20 
000120 - 
000120 
000120 - 
ODO 123 
—0 00 1 2 6 
000 1 30 
000130- 

000 l 3 3 

•• 0 0 0 13 6 - 

ono 1 h 1 

— OOOJR 1 *- 

OOD 1 *46 

- 000 150 

0001 5 l 
000 15 1 

000151 

— 000 151 - 
000 1 5 1 

— 000155 
000 1 55 

- 000 156- 
OOC 157 

— 000 1 6-1- 
000 163 

- 000 163 

000 163 
000163 

0001 63 
— OPG 165 

00020 t 
00020 1 
000208 

— O0O2Q7 

0002 1 2 
0002 IS. 

0002 1 5 


0002)5 


: 811 - 9 ! 


00?4 ! 

- 0 0 2 4 1 

0024 1 

0 0 2 H 1 

00241 
. 0 0 2 4 2. „ 
0024 1 
00241. 
DO ? 4 > 
.0024 i. _ 
002^ ft 

—0024 f .... 
002? 1 
002M - 
002^2 
_ 0025 3. .. 

0 0 2 5 1 
„ QD2S i •• 
0 0?5'> 

002ft ) 
002ft 1 
QD2A2 _ 

002ft 1 
. D 0 2 ft '» 

0 0 2 ft 1 
DO 2 ft ft 
002ft » 

00 2 7 0 .. . 
DO 2 7 t 
00 27 2. .. 
0027 1 
00271 
00 2 7 i 
?0 2 7 
0 0 7 7 i 
0 J ? 7 > 

00270 
0 0 2 7 ft 


- 1 1 S • - 
lift* 

_41..7*_ 
110* 
119ft- 
i 2n« 
..123* 

J 22 * 

1.2 0 * _ 

l 2^ • 

- | 2S* - 
12ft* 
>27* 

l 24 • 
-1 2?*._ 
1 3n* 

I 3 1 • 
102* 

... 133* 

J 3 4 * 

_4 3 S* — 
1 3 ft ♦ 

- 13 7* 

1 3 4 * 

1 37» 

140* 

..4 41 
J 42 * 

... 1 4 3 »- - 
J 44* 

J 4 S • 

1 4ft • 
_..l 4 7 • 

J H P » 

1 4 9 • 

] 5P • 

. I S 1 * 


ft O'* rORMAT ,/ 49 x ,*q 0 H * f 2 ( 5 X • j pg i j 

C THE FOLLOWING is uSEd FOR NrPUlST i 

s. 

C MUM Eft A TOR C0 FFFIC!£Nts 

L 0e* .-«-LOCW- + -4 

PfU: t L 0 C »>! ) = R o H l 

LOcN..« LOCN ♦.. 1 

PNij l LOCN> * R0H2 

_C aEJJ.0ii.|.N.A_LQ.!2-.C 0 EF-E 4 .C JLg.fjJ.S- 

LOcO = L DC D + 1 

P-O—I.LOCO.) — a . 80rt3 

UO C D a LOCO + 1 

PD ■ ( LOCD J - ROHH 

LOcO = LOCO + 1 

P-0 _4L4)C04 a — RO-HS 

t/NcPE R < MUMP OL > 3 2 

NDr PER < NUMPOL -> J-~ 

IF < 7-4 AG • M^PCLE * • i_T »° * 000 1 ♦ OR • 

NUtfZ a Mil M2 ♦ t — — 

N N f Z t N U M 2 ) * 2 

L- 0 £ _M Z — “ — L-0 C ‘4Z — * — l 

PM? 1 LOCN* ) » ZOHi 

LOcNZ-* .-L0C-M7- J — - 

PM* < LOCMZ > * Z0H2 

.... u n q Z ( n u M Z 3 * 2 — 

L 0 C 0 Z a L 0 C D 7 ft > 

_1 P.&z.lLoCQZ-t-a .1.2. 

L 0 C 0 Z a LOCOZ ♦ 1 

P.D7 tLOCDZ > • e Z 3 

N E s r Z => MFSTZ + I 

tST2..« NESTZ 3 .= 2P0 l f1.NzP0LE*_— 

return 


_._c o„ n p l - E x 
1 0 Q.,.C 0 n T J MUE... 


.M. .0...N-- Z ~E._ff._Q... 


0027 7 
0 o 3 n t 

152* 
| ft l* 

T 1 

L2_ 


EXP(RTR - 2 t^ 

003n 1 

1 5 4 * 

T3 

A 

abs r r r i > *zT 

0 0 3 0 >.. . _ 

1 &5* ’ 

.T.4.. 

a 

D 2 .* R 5 R * I 2 

0030 1 

I 5ft * 

T S 

s 

-D2*RS 1 * T2 

0 0 3 D 1 

. 1 S 7 • 

- IF 

< 

S T 1 . L T * D.OL 

•0 0 3 0 .ft 

I 5 R * 

l l 

* 

GUPEPX* t T 4 * C n 

0 0 3 0 r 

____] 0 9* 

_.Lzl 

=j 

5JP F r?ic*[T5*Ta 

DO 31 0 

1 ft n * 

Z 3 

3 

0 1 


CO 3 1 1 
003 1 2 
Q03 1 J 
0 0 3 14 

.0031.'?. 
M03 1 > 
00 3 2 1 
003-1 
00 3 2 ’ 
00 37 1 


.. 1*1* 

1 62* 

; l ft 3 * 

1 ft 4 * 

1 ftS?. 

1 ftft • 

1 67 * 

1 6*' • 
169* 
l 7 n • 


.. Z4. =_..^D2*T1*C0S ( T 3 ) 

ZS B EXP l D2 *RTR*Zt ) 

_.lF_.tD 0 Ttn C:0 TO.. I In 

V A |_ =. Z4**2/04 - ZS 

_x er.i 4 c.s.aaxiJUJLJ. 

m Z p 0 L E 3 M 7 P 0 L E * 1 

Z 4 7 0 a Z4/M2 • 

ZPoLE ( .<7 POLE 1 =-Z‘lT .vO + TERM 

/-.■> \C 3 t >•; ZP^Lf. I 3 C Aii ^ ( zpOLE ( N 7 pql 

MZaOLE 3 47PDLE* 1 



0037 4 

— 00 3? 3 

00376 ' 




- | 7 2 * - 

1 73* 


u o co, 

*Ju 3 

00 3 2 7 

I 2 5 ♦ 

C 

11 ! F 

- 00327-— 

■ I 7 6 * — 

c 

— 

Cl 0 3 ? 7 

177* 

c 

PRINT 

00 3 ? > --- 
0033 ! 

— J 7 4* 

! 7?* 

■c 

IF 


M49 0 


-00 3N t- 


003“ ! 

003*4 \ - 

003“ * 

— 00 3*4 - 

0034 6 

003*4 7 — 

"> D 3 '4 ' 
003“’ - 
00 3 4 f 
• 00 3**' — 

0035 1 

00 3 6 V — 

00 34 1 
. 0 D 3 4 l — 

0 0 3 4! 

. 00 3 4 1 

00 3 4 >. 

....... 00 3 61— 

0034 4 

• CT> 0 0 3 4 5 - 
0034 3 
-s* 0034 * . ■ 
^ 0 0 3 4 * 

003 7 1 .:.. 

' 0037 ; 
...003 7.! 
0037 1 

00374 . 

0 0 3 7 5 

503 7 3— 

0037 1 

00 HD ) - 

0 0 *4 n .) 

004 0 ) . 

• 0 0 <i 0) 

0 0 <i 0 1 - 

0 0 « 0 1 
. 0 0**n * 

0 0 H n .1 

— ,00*40 * - 
0 0 H f) » 

-CO*mJ> — 

0 0 4 o 7 

- - 0 0 *4 1 1 - 

OQH || 
00“ » ) 
DO H l 1 


-1 SO* 

1*1* 

| 8? • 

I 93* 

— ) 9 4 • 

1 «S* 

~T A 4 
18 7* • 

• | 9 9 * - 
| 89 * 

. .. j 9 n • - 
j 9 1 • 
— 1 ’2’*-- 
1 93 • 

_ l 9 4 •.. . 

1 9 5 • 

.. 196* 

J 97 * 
_i 9 3 *— 

1 99 • 
200*-- 
20 l * 

-.202*- 

2 n 3 « 

....204* - 

205* 

. 2 0 4* . 

207* 

. 2 0 9 • - 
209* 

— 21a*- 
2 11* 

— 212* - 
213* 

• 214*.. 
215* 

„214 *-. 
217* 

2 19* 

2 1 9 * 

- 2 2 0 * 
22 1* 

. — 2 2 2*— 
223* 
224*- 
2 25* 

2 ? 4 * 
227* 


PRINT 7. COEFFICIENTS 


91 *l\+Z2 

- R 2- * -02*2 2 

R3oZ 2-2 1 

-,<4 = 2 3 + 2 4 + 2 5 

9 5 = D2MZ3-Z5) 
-R-6- 2 3 - Z-4-+-Z-5 


4l51o 

-4-l-Sr 2 q 

6 1 53 0 
-41 S4Q-- 
6 1550 
-6 1 S6a -- 

4 1 5 7 0 

—4 q 

6 1 59 0 
-4 1 60 0 — 
6 16 10 
-6162a — 
6 1 6 3 0 

-4 1-6*4 a — 

6 I 6 S 0 
6 1 6 6 q 


000556 

--000565 

000574 

— 0005 7-4- 
000574 

- 000574-- 
000374. 

— 0005 74 ■ 
00 0 5 7S 

— 000& 1 »•-- 
00061 1 

- 0004 1 4 
0006 1 7 

— 000622 - 
000626 

— 0006 32— 
000632 

-- 000632 


PRINT R CO F.Ff KlEf-jTS 


IF Sprint* 1 Te c 6 , *o4 1 «1,R2 »p3«r4,r5»r6 
-4o 4 — f O-rM-a f 1 1 , 3 t&X-»-l-T > y-I-2- t -5-3-/-5-3 x-r 1 ^ N- * --r 3 ^~X~+~trl~3-»£->-4- 


C 

--C- 

c 

~c . 


-THE— F-oL L07j I Ms— I S -uSEo -FOR- N VqU.j ST- .«.«*!. Y 5 I S 


..NUMERATOR' C n F fF I C 1 ENTs — 

LOcN » LOCN + I 
pJiw — L^O C-wJ — 3—R.l — 


LOcN ■ UOCN + 1 

pN h — I lOCnT— » ■ R 2 — 

L 0 c N ° LOCN + 1 

PU K ,._( I ,OCN j— »• • K-3 

n E it o :i l M A T 0 r coefficients 

(_ 0 C-0 - B — 1:0 CrP — *' — 1 • 


P0 (LOCO) 8 R 4 

L 0 r 0 = - L 0 C 0 t - 1 

p 0 (LOCO 1 8 95 

L0 C 0 = LOC n * — 1 

PO 1 L 0 C 0 1 a R 6 
!4 n r 1-M y m p.g WJ — 3 — 3~ 

NDcPER I N uMPOL I “ 3 


-return — 


t E R 0 r.ROFR HOLD SELECTED 


150 CONTINUE 

2 n M 1 = / l 

2b.\2*l2-7. \ 

Z0m3«-Z2 — 

Z0h4=z3 

i-oh^-z-* 


ZOh 4 a Z 5 
Z0m 7 e n p . 


P Hlt,T Zn H COFFPICIERTS 


6 1 67 Q 

0 0 U 6 3 2 

— 6 i 6 3 a - -- 

- 000632 

6 l 6 9 q 

000636 

6-17 00 

OQO 653 — 

6 17 10 

000653 

- - 6 I 7 2 o . _ 

-• 0004 5 3 - 

6 I 73q 

000*53 

6 J 7 4 Q 

... 00O6S3 ... 

4 17 50 

000658 

6 1.7 6o — 

0006 56— 

6 1 7 7 (j 

000661 

— 6 | 70Q - - 

— 000663 

6 1 7 9 □ 

000666 

6 1800- 

000670 

4 1 0 1 o 

000670 

__6 1 82 0 — 

— 000673 — 

6 1 0 3q 

000674 

— 6- 1 A 4 g _ 

- 0 0 0 7 0 1 

6 1 85 o 

000703 

— 6 1B6 0 - 

- • 000/06 

6 18 7 0 

0007 I 1 

6 IB G o 

000 7 13 

6 I 89 Q 

000715 

6 l 9 Oq — 

— 0007 1 6 ~ 

4 1 9 1 Q 

000716 

—.61920 

0007 1 6 

6 1 9 3 o 

0007 1 6 

6 ] 9 H g 

-Ti n n 7 t 6 — - 



6 1 95 o 

000722 

-6 1 V 6 o . 

000?22 

6 l 9 7 o 

000723 

6190q-- 

- • • 0 0 0 7 2 5 

6 1 9 9 q 

000727 

A 2 0 0 o •*•• 

— , 000/ 3 1 

620 10 

000733 

62020 

- 000735 

62o3o 

000735 

- -62040 

000/35 

6205q 

OO0 7 35 



304| f 

... P04 l 1 

0042 l 

0 0 ‘4 2 .1 

229* 

23o* 

23 1 f 

1 *° 
( O 

004 2 4 

232* 


. . 0 0 4 7'. 

23 3* 



non ? ’ 

2 34 * 


. 0043 1 

2 3 5* 



mi 4ii 

236 • 


DU 4 3 • 

2 3 7 * 


0 0 4 3 ! 

2 3"* 

C 

00 '4 3.! -- 

2 3V* 

-C — 

0043 > 

24n* 

c 

.. nu4 3.» 

2 '< J • . .. 

c ... 

004 3 4 

2 42* 


00 4 4', 

2 'U 

6. 

0 0 4 4 '» 

2 44* 

c 

0 0*4*1 » 

2 45* _ 

Q 

0044 * 

246* 

c 

n u 4 4 5 

24 7 * 

c.. .. 

DO 4 4 4 

24 8* 



If. _U bR ! mt L.*R.t TEi A ,-6 q 7 L„ZD h 4 , ZOH^ »2oH^t Z OH 5 -*ZOM6 t Zoh 7 -- 

4n7 r07M/, r (/47X,*Znrt i|ijM * # 3(SX* !P E 1?.S»/53X**0 En » t 

R-O- 14 -I — = — 7.014-1 — Z-fca 7 OH-1 


-JJOh-1 — = — 7-014-1 — 7-0 H 7 OH-1 — 

ROu 2 = n3«7 0M3-Z0H1-Z0H2 
,RDi;3 = ZD:l ?-ZQM 1 -ZDi-li 
Hn M *<Ts2u.vi *znMr> * zom /, 

. MtJ I<*> 3 n 3 " 70HH * ZOttS-2 OH 6 . 

ROh •> 3 D‘Wi1M4..Zcim5-ZQH6 
Jicu^.s taiin -2 ami* Z.Qy a 


PRINT ROh CnprF I C I ENTs 


_.. D 0 4 4 1 

0045 i 
DU '1 5 1 . 

n □ m r> ! 
ri j 4 r - \ 
on *45 v 

004 5 !.._._ 
no *4 5 ■» 

.. 0 0*4 5 r _. 

n 0 « 5 ’ 

DO '4 6 . 

0 Q 4 4 1 
101 A ] 

0 0 *4 6 4 
.. OOR 6 •( .... 
00 *46 » 

00 4 6-’ 

0 D 47 l 

0 Q m 7 1 

00*472 
DO *4 7 Jl ... 
0 D *4 7 I 
0 0 4 7-, 

C 0 *4 7 ■ 

_ .. 0 0 *4 7 ■» 

DDSO 1 

n. 05 oi. . 


2 H 9 *„ 

25 0 4 
25 1 • 
257* 
25 3 • 

2 5 *( * 
.....2 5 5 *. 

256 « 
.... 257«_ 
2 5 8 * 
.. 259* 

2 *')« 

2 6 1 * 

262* 
... 26? • 
2 6*4 » 

265 * 

266 • 
— 267*. 

268 • 

.. 26?*. 

27n* 

. 27]- 
2 7 7 * 
....273* 
2 7r * 

. 275* 


If ( Gp*rtlMTl -<R I TE. t 6 , 6 ofl > R 0 4 1 * r 0 H 2 • R 0 H 3 » K OH 4 < R OH 5 » R ON A * R 0 H 7 

THE r 0 L L 0 rV 1 N G 15 .uSEq.f.PR NYgUxsI-AMftLVSlS 

.....NUMERATOR CriFFF 1 c 1 ENTs - - - 

LOcN 3 LOCH + l 

r M h — Lt_o C Ml — a._RGI H-l 

L Of N 3 LOCN * 1 

. p W(4 . .( lOCN 1 R 0 H 2 — ■ 

LO{*f|*»LnCN+l 

-PM:* (lOCN> n R0H3 .... 

n E N n M ] cj A T 0 P C ij E F F I C I g m T 5 

L O c 0 — *— Ui G O— *~4 

PD < l_ 0 C 0 > » ROH 4 

LOC-0.-?— LOC D.. 1 — 

PD < 10 CD> * ROH 5 

P D 1 1. t)C’>> 3 « 0 h 6 

LDcO... 3 ..L QXn_. + .J 

PD < LOCO 1 * ROh 7 

K HC PER 1 ’UN'.P.'JL 1 T ....1 

MDcPFR I MUR POL 1 0 4 

I F < 2,-tAr, ! NZp OLE?.*!. Tt9A0.no 1-... OR ... •.NOJ-.yESZm-J- RETURN : 

►I Dm Z « mum 7 + i 

U.NeZ-t NUil.7 )~a — 0 

LOc'JZ 3 I.OCNZ + 1 

P N 7 I L 0 G f J Z ) 3 Z 0 H I : — ._ 

L Dc u 7 3 L0GN7 + 1 

PN 71 L 0 CNZ) a ZO H 2 — : — 

l Of N 7 " LPCN 2 *1 

F..N Z iL-OU £ Z J_ 3 _J£ o H 3 

M 0 c l { |.| 0 M 7 1 3 3 


62-Q6-0 

62n?ts . 

62o8o 

6 2 0 9 g_ 

621UO 

6 2 111) 

62| 2 CI 

6 2 1 3 [] . 

6 2 1 4 0 

621*0- 

6 2 1 6q 

6 2 1 7 u 

62 1 Do 

62)9 0 

622U0 

6 2 2 1 u . 

62220 
6 2 2 3 0 

6 2 2 4 Q 

6225 0 

62 2 60 

62270- 

6 2 28 0 

6 2 2 9 0 

62300 

62310 

6 2 3 2o 
162330. 

6 2 3 4 0 
6235 0 

6236q 
6 2 3 7 q 

6230q 
— 6Z3? 0 - 

6 2 4Uq 
62410. 

62h2 0 


00503 

276* 

PDzU.QCOZJ 3 Z 3 

0050 1... 

... 27 7 • 

10 c dZ 3 inrnz + 

00504 

278* 

P D z 4 L 0 CDZ ) 3 Z 4 

... 00505 

2 7 0 m 

i Dr 1)7 b | nf!)7 + 

0 0 50-1 

2«D* 

P D z 1 L 0 C 1> 7. > 3 Z 5 

00 5 0 ' 

23) * . 

UEsT* 3 tiFSTZ + 

^05 1 1 

2-8 2 * 

I! 5 T Z f ! j E s T 7 1 3 7 

'] y, s 1 ! 

2 n 3 * 

.. REt-iR-j 

00 S l 2 

2 5 4* 

f: n 11 


6246 0 
6 2 4 7q 


:i 2 i |-9 


a FpP t U Sft r* 


< 01 iF'NtCHOL 


FOR S EJ X - o 5 f ?. 3 / 7 - 1 Z : LS 5 S l„J 2 , J8J 

- 2,2 

=J>jJ 


DATA ice/o/ 


IP t T CE .ME* 01 QO Tn 3 \ 

call GfissefizYiTz'*' ~ 

U_ £AU GM Oja .■ < - .U 5 9 JLS. «. 2 .». ?. A. £»■■?. H. . a Q >Xl2j 

CALL PL0T1 < 1 *1 *-7 20- , 0 . , - A 0 . , * 0 ♦ , P L t * , PLT Y » NP , 1 , l H 

. . CALL .PRtNT...CA7o.,.LOaD*lJ3-*Du3. t .5.fcip«/LS£J 

CALL PRINT « 10 ,«»0B ,Q , 1 S , 2 , » 

... .CALL . F I L A V J 7 I 



subroutine nichol entry point raping 


STORAGE USED cm Mj_ On 0 ]_50_?__ p A T A < D * nAPO^A. B L fl N K rOM mQN<2 > 0 0 fj o 0 Q_ 
commo n _ blo cks: 

7 0 0 3 PI.T .0000 1 2 .< 

. nOQR PLTARy 0045*40 


f X J_ER \'A L REFERENCES IpLnCK. NME> - 

TOOS. _ GROSE J 

} 0 0 A G P. ! D G N 

. . __ ...7007.. . P L 0 T I 

3 0 1 0 PRINT 

J 0 11 i_E.lL r 'A.Y- 

T0J2 N 0 0 5 

_ .. 30 13 NI02« v 

7014 N E R R 3 * 


pTORAGr ASSIGNEE NT 

'block, type 

, RPLATIVE 

LOCAT j ON i N A M F ) 






nOo 1 Du 0 0 2 6 1 2 □ g 

0000 

0n0n02 3 0 F 

QQ.D.l O0OO 57 _ 

3 1 1 

0.0.O.0_ 

nOOO 2 q 32f 

On n 3 oooon 7 OifI 


0 OO 3 0 30010 0 J p 2 

rJoo oo oos 6 iNjps 

onoo j 

0003 

OnOnOl { 

00 0 00 3 T «5 VY 

nooo I oooooo 

0003 L 000001 

ice 

Ml.CPt.T_ 

OOD 3 

OD0.3.. 

i oooai l ick 

T 000002 NP 

0003 00000*1 ICT 

OOUu R OOOOOO PLT* 


]00" 3 D 3 2 2 6 o PLT y 

0 3 0 3 

UOOnOO PN I 

no 0 3 00000 6 

S 3 60 

00q3 

ooauos T360 




0 0 1 0 t 

1 * 

SUBROUTINE N 1 C pO l 

OOODOO 


OD 1 0 3 

2 * 

LOGICAL NlrPLT 

fc.Qj_acn.Qqfl 


oo j n ■< 

3 * 

C Om M 0 N /PLT/ PnI»m !C plT,NP» 1 < 1 wmCT i T 360 ,S 315 o,Oif 1 » 0 I F 2 » I C K 

OpOOOO 


0 o 1 n % 

4 • 

C 0 ; ; M 0 N /p(_TARY/ P L-T X f 1 2 () 0 _ ) • P L .T Y .( 1 2 Q 0 ) ... _ 

oncooo. 


rams 

s * 

pAyA jCE/n/ , 

KEft-OnCUOfl 


00 1 1 1 

h * 

IIP. c .lP- ?. .... . _ . - 

.Il 70 rn 0 m 



FJ J 1 l ! 

7 • 

IF t 1 r. < , n • 1 ) N p a N P - 1 

On '.'0 0 7 


^Ol 1 l 

3 * 

■i * j T F i 6 . .» n 1 * P 

QnOU 1 1 







OnO 0 2 6 
On oo *t & 


OnOO^S 

: m E-OnO OHS. 

N £ ft 0 P 0 0 *< 7 

— (t€-r£hrO-0^-f 

M E ,v 0 n Q 0 5 7 

J NEi.yOPQ0 7 0 

NEftOnOlOS 

NE^O^OI 15 

N £ s» 0 0 0 1 2 5 

■ • " ■ — oO-i-Q 

OnO I H7 











9F0R»US V f • MOmM T X *F • N OMMT X 

•FOR 5E1 x-05«'2 3 / 7^-0 f 'J J6 J-4 8-H-2 T 3-> 


subroutine: nO'imtx ent^y po Im t oooQ3z 


. SrpRASE USEOJ - C Q D EX.l_L....OnO 0 3,7 J — 0 AJLA . 1 . 0 Cl,o 00-1-2 -• — 0 L a N « — G-0 M M 0 N- ( Z l-^-O 0 0 fl 0 O 

Z 0 M U-ON -A L 0 Cx 51 — 

. 3003- - KEEP I 00002 6 “ 

1004 KEEP? 000705 

- )Oo5~ KEEP10 02IAZO 

1006 K E E P 1 3 0003 1 3 

_—i oo7 k-e f p-h > — n on n 3-i ~ 

1010 CKUUR 000002 


cr> 


fx? 

CO 


E < T E R !d 4 L REFERENCES-. I Bt-oCX*-!JAHE->— 
j40-M u£-?K3£ — 


S r OR*GE ASS i g^mEMT 1 BLOCK i TypFi RELAY jyE LOCATiONi NA^E> 


idol 

•10 00 

}0u*4 

•100 6 J 

1 Oo 3 
.30 0 3 
100 3 
1 00 3 
1(1 o ^ 

10 0 4 - 

100 7 , 
1007 
1007 
„1 0 0 
1007 L 


ouno 1 1 
-000 0 0 3- 
O0OS72 
n 0 n 1 # 4 H 
Q000I12 
001006 
000013 
000020 
0 0 o ;i n 3 
o o n h r > >\ 
0 U 00 2 7 
00 OOn 4 
0000 l *4 
. OOQOnn 

00002 q 


11 7r 

.43i.jp.js 

KO • 

uocv 

H X F P M 

fl x M E 

M V P P 

.I'Uvv 

□ C OF 

’4 Ok'! At, 

W R z E-R 0— 

P C PL 

-ROO-T 


000 7 l 000 0 2 2 OE 0 UG QOO'i C 

-fHK>7 0W>i?4 e~-K> p €-N — ODO-S 


YESRAW 


0007 000001 KOOE 0007 L 

— oo o 3 0 OOnOO A X I T 0 0 0 3 

nou3 ooo 0 03 mxNBN 0003 

... ooo3 nnooo7 .. m xneq aoo3 — 

0003 0 OOn 1 *4 »/ X !J 0 P T 0003 

0n0 3 QUO Cl .2 x-M Z-T 0 00 3 

not) 6 0 00312 MC OF V OOO'j 

__ana5. . .nnoaa i - me° ooin 

oou 7 onon3u NOTyET nnoo 

— 000 6 ..j....on0 3 1 0 -M7 -" 0007 - - 

ooo7 ononis pfac 0007 

n no.7 0 n 0 q.o 0—5 ^ag e 0 0 u-6— 0- 

0007 L 000 0 25 Y £SKLP 0007 L 


000226 
-onooo 4 ^ 
0 0 0 0 2 3 
0 0 0 o 0 1- 

000004 
■0 0 0 0 1 U- 

0000 j s 

-0 0 0 U 2 2 . 
00372H 
n 0 0 0 n o 
one 14 5 a 
-OD00 0 5 
000013 
-00 00 00- 
OQ0026 


E A 
-T-ft- 


OOqS F? ol Ai6 4 E v 

-0 etj &- QO 1- 45 4 — uc 

LFl t 00q5 OO^ 67 *! LL 

. Hx£Ig 00 o 3 - 000 024- MXEI-G T ~ 

ooo 3 dooooS mxnct 

— 00 q 3 oOUO 1 1 M X MG 

ooo 3 0 0 0 0 1 6 mxnsp 

- 0 0 0 0 — | — 0 0 0 0 0 1 - N 

ooo 5 000000 ndeg 

. 0006 f>0031 1 NEV - 

0007 000002 N R C L P L 

-0007-- - 0 0000 6- II XN ■ ■ 
0007 000016 PSLOSH 

—oon 7-- t -o o oo 17—rESM -T.*- 
YE5SRL 0007 L 000021 yESSRP 


H X N c 0 F 
M x N F I — — 
HxmSm 
k x pol-y — 

N'f) 

fj£0 1 
NR 

N X 0 

PNOM 

*sv 


Ooao I 

0007 

0005 
0003 - • 
0003 
-0003 

0003 

-0004 - - 

0005 

0004 
0007 

-0007 — 
0007 
—0007 —fc- 
0010 L 


000000 
00001 i 
0076*14 

000023 
000025 
0000 12 
aooo i 7 

-000455 

000002 

000457 

00 000 3 
0000 0 7 
000012 
-0(1 00 2 4 

ooooo 1 


I 

JOP£ n — 

LOCPOL 

HXEST 

MX^CV 

MXNpH 

M X N T M 

na 

NE • 

N 1 

NRPOLE 
N X R 
P V AR 
YCSPCH 
TESZM 


,._0Q 1 o 1 

_ . i * — 

0 010 1 

2 • 

_ 0 0 1 0 3 

3 * 

n o i o * 

4* 

ooin » 

5 • 

o o t o '> 

6* 

DO 1 Q6 

11 

00 10'' 

A • 

-001 0 7 

. ?♦ ...• 

00 l 1 1 

jn* 

on 1 1 i 

1 1 • 

cai i i 

12* 


' h- P 0 u t | .i>J g N O.MlLLX — 


C 0 M M 0 N / K E F P 1 / f4AxiT»«X^^* H YpRM ( HX»J^M*MX N C0F*HxNCT*«XNE ( MxNEQ* 

j . H X fi F 1 *MxNG »,- 1 XnPH »:ix Npp , nxNQPT , MXNSM , MXNSp » MxNTH » 

2 MXOv . MXMZT iMXpOLY .MXEST , MXE IGt ,MXNCV 

-COmMON/K EFP-9/— R 0 0-T- (-7.5.1 » £ Ai. 7 sJ., I G » N A » N.R » N 1 (-75} , K D ( 751 

complex ROOT.EA . „ , 

r 0 ,. m qk|/<fe o..l.fl/.MQ.Er rJ Jj Eq?-^£-^e CLOJ-* J<- U-OOO 1- ^NO-LULoal-, 

1 LL(lnO0>'iLOCP0L(6r'*6n>,EV(15pnl 

Cns.;.iO‘4/KFc(M3/SV< InOl ,LOCV ( lOrjl ,HV,«LV*MCOFy — 

CPyM0.g/«Frf*16/STA^F ,KO0 f » N 4 f L P L , f,' H P 0 L E iNRZERO»nXB » fj X N , fj X R , 

- , JOPEM.PvARtc;NOu 1 pCPLtPFA,c»PSLOSK' 

, . . - ^ O i-i. « f.. ill. .1 Cl T . x; r D r m. 


1 0 p F 1 ' , J 0 P f- N • P V A R , t: N 0 U , p c P L * P F A. c » P s L 0 s H I - 

YESMTX*YESNA«.YE5«,RPtOEUUGitFLT»YESPCrt*YESRLP» 


..6Z4fl£>_ 

624?0 

.62500 

62510 

.6252 0 - 


J6.2550- 

6 256q 
6257 o 
6 2 5 (i Q 
625? 0 
6260Q 


4100000 - 
onouoo 
ooouoo 
□OOOOO 
000000 
oooooo 
.. 000000 - 
oodooo 
ooouoo 
ooouoo 
unouoo 
onuuoa 


001 J) 

13* 

.00111- 

!/»■._ 

n 0 1 1 1 

15* 

nn j ) » 

16* 

OOlti 

17- 

AD\ 1 3 


00 1 l * 

1 n * 

no 1 1 1 

2 1 « 

00111 

2 1 * 

001 1 * 

21*- 

00116 

23* 

0012 1 

2H * - 

0 012.! 

25- 

00121 

. 2 6* 

00 1 2 "1 

27 • 

... 30 1 2u 

28* — 


3 y£SS91»N0MNaL ,M0TyET 

_ 4 .O 5 .LfJU, _yLSmTX-*yCS»Aw , YEScRp .DEBUG *Lft-T * Y ESpC-H* Y-ESRU 

I YCSSRL*NOMNAL,NOTv£t 

^OW^y-/_C R| j-ri-M j — t 4 li.Q-j-f.yS SZ-M 

LOGICAL Y E S 7 M 

C 

C 2.E5T0u5--.THE. MA.tR.lx--C.nrr.F LC I E N T S . 5 Av/.En ...IN .qEHEr.A^-FORM 

c 

I_r (-Uy.Eo.D-l — RE.I1LW.U — 

DC 10 1*1 »NV • 

f V ( N > * S V 1 I > 

N V * 0 

i RE- T-U B-N — 

END 


62A1 0 
-6 2 6 Zq — 
6Z63 0 
-62 6*tQ — 
626&U 

_627flu — 
*27Y Q 
62800 _ 
623 1 0 
6 2 8 3 0 — 
6 2 8 0 
. 6 2 3 5 j - 

62 0 & 0 
6 2 8 7 0 -■ 

6 2 B 3 0 
_&28?o — 
63q8 0 


O00000 
— 000000- 
00 0000 
OOO-UOQ- 

oooooo 
— ooouoo 
000000 

ooouoo 

oooono 

000003- 

OOOOOH 

— onooi 1 

000013 
- 000U16 
DOOO l 6 

■ ooou 1-7- 

000036 


en; of COMPILATION? .. 


D I AnuoSt ICS •_ 


» U 5 F. N y°I5T»F*Ny(5lST 

-FOR S£ J X-0^/23/ 7M-OB S 3 7 JOG— <-2-. 3 > 

SUBROUTINE Ny.^IST ENtRY POINT OOnOQA 

S T 0 R A 6 E J._CODE.« l.)_ 0.riU D-l.O-I r, A X AJ-ElL-O. n 0 OiXll-I — 8 L a N <— c-0 M t* 0 NX 2J__D QOUO 0- 

F. X T E R M A L REFERENCES (BLOCK, NAME) 
n003 rJ E R R 3 * 

Sl_0.RAfiE_A.SS I Gli>±£iLI-- E^JU-i-V£--U)£ A-L{_0 *U 


jDOO- OOOOUO -UJJPS 


OOOOOO 

OOOOOO 

—oooouo . • • • 

OOOOOO 

— Oooooo ; 

OOOOOO 

000007 ■■ 


92L-9’ 


?F r?*? . its r • nunrri'jrr CrrTrPu n 

FOR SEiX-0&^23^7-f-a° : 3 7 :1 9 L%5.> 


SUBROUTINE OUTPUT 


emtkv point dod s o? 


? t- o r f r , e usf;o : c o n f u > n r ,ns ii / ; r g at. aj n _> ..on a i.q ?_l _p k A n k_. c .Q.k m o n .< 7 * . ..PQ c a 0 o . 
< onmon Ktocjis; 


r > 0 0 3 
nn[)H 
(•00 5 
(;006 
i: JQ7.. 
:• 0 j 0 


Y E E P 3 
X £ E P 6 
K C F. P l 4 
CMID3 

P L T_ 

PLTApy 


np.ni fl.2_ 
Don 131 
ocinn3i 
n i j kso 
.0 0.00X2- 
Q 0 4 5 1 U 


E^TER.N 4L k F. F F !- f n c F 5 taLnC"'.. 'U^EJ 


.j? p i l. 
51012 
r o 1 3 

;-n 1 H 
m i 5 
f'O 1 6 
('• f. 1 J 7 


. 5 Y S F o r 

M .1/ 0 1 1 5 

r i I n J « . .. 

U 1 0 2? 

5 ' ; R T 
A f a 2 
.Ui;!»K.2S 


(020 

A L 0 & 1 0 


(-.0 2 1 - 

H 1 0 l ? 



1022 

n i: p r 3 3> 


S' P R 4 r - c.. 

.ASS 1 G 

IfLtLt 

root 

r no i i a 

ihl. . 

iDOt 

oao2n i 

201G 

..: rno i 

ooc 1 5? 

3 ol -... 

noon 

000037 

4 0 2p 


.l.’OOl 
i no* 
1006 
f oq6 
M'a s - 
t On 6 
f u.i5 . 
r Don 
i no? 
j o a n 
i no3 
t uoa 

_fj006. 

{ O00 
r no a 
t DQ 6 
rnin 

f no 3 


_o a n i 1 6 
onooaft 
nii 4 ^ 
0 1 J *2 1 
000012 
n l I 61 5 
mm 1 7 
n ( 1 0 U 1 n 
n o o n D H 

nun ms 
o n o n 3 7 
0000 0 3 
_.Q 0 0 Cl Q 5 

oonuno 
non i no 
n o o 7 1 . , 
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CHAMr,C X lp X IS CLOSE TO PREVIOUSLY F 0 ij n 0 ROOT 


—A 7 300" 
6731o 
-6732 0 - 

6 7 3 3 o 
-6 7 3 4 0 - 
6 7 35 o 


nscale 3 o 

1 f - * N £ I G ■ t E .-9 >— RETURN- 
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IF l C 0 A 3 \t < Y / X 1 

co-j r i f<uc -=-• ■ - - 

x a x - ( , on i * i • > 

■I44-E_.TX.5X- F-OR- X. 1 } o-A l-J-Ey — 
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IF (CoAi}V<X-!i2) »F0» 0. ) GO TO 3 0 

4 0 C'Om T I \|UE 


674*0 
-6 7 500 

6752 0 - 


oooono 
■ oooono 
000000 
-000000 
0 0 0 0 0 0 

- ooouoo 
ooouoo 
0000Q0 

oooono 

--ooooo i- 

0 DO 00 0 

- 000004 
000004 

- 000004 
000004 

-000004 

000004 

onoo 1 4 
00 00 l 4 

Q00U2 1 
000030 
-OD0037 
000046 

000050 

000050 

000066 

000066 


c 

C EVALUATE -The - pOLYnOHI al- 

c 

0 0 — 543 — 1-^*1— f--U E"I G 


. a T • T hE— I TE p AN T- 


00 1 A l 
00161 
0 016 1- 
0 0 1 a > 
00163 
00 1 A » 

00 I 7 . 1 . 

0017 1 
.0017.1. 
00171 
00 17 
DO 1 7 s 
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-ri :tCi n -t ah el 2- 

0 11*37 ?| fXT 
.. ft o n it 2 <> n i 
n rj D 3 l 6 p a m p 
.. .000626 pH AMP — 
s n noo 21 p 1 2 

: al-l.A3 0-.-HE 

00077 2 sAVFRf.' 

„ 0 1 t *32 ..cjtA 


OOOS 

- nous 

nn03 
— DOGW- 
OODS 

DDOS 

GOOD R 000002 FRO 

— 000 n- I -oooo o "I I 

000 S 011634 1 NT 

_._.n n o * o o o 2 3 - --L a fc-Et- 1 

milt; nnmilll uri.Pk- 
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000 0 7 0 AftjR 000-* ^ - 

01 16 20- file 000* 00OH6 

00 0 0 2 5 DEG 000* 0 0 0 1 3 I 

« ■» - * • - ■ — 0 0 q-3 0 0 0 0 1 *■ 

- r* .11 A a U 


KJ ^ ^ V 

-000 0-1 3~ol“ 

011647 ERqP 
0 | l A22 -f l - 


0000 000003 NGNPK 

■ 00 qS .. -- 0000 0 2 N 1 / M p; • — 
000 s 0004 UO po i R 

OOOS- -000710 phoIR 

OOO 5 000**2 pppA 

_0 0CU -C— n QOOOO -Rc & -l 

nooS 006 6 62 S A v H H A 
. OOqS 0 1 16 33._5 TO 


oops L nil 6 ** 
-ocjdh--— ooo 1 * 6 - 
000* 000162 
■- OG04 - 000100 

oaoo i onoooS 

— OOOS e 1-3 6* l 

OCJ0 5 Ol 16*0 

— 0003 -—000027 
000^ o 1 1 625 

• OOoS --0005H* 

oon* ooao 3 * 

— 000 « qO 00 3q. 

00q5 0 1 1 6 3 1 

... ooo3 c oaooo* 



. ODiai . 

.. i • 



DO l no 

?• 


_ . o c i c r 

3 » 

i 

0 0 3 n *• 

4 * 


n 0 1 ri r 

5 • 

. — 

00 1 Cl! 

6 * 

l 

.0010S. . . 

7* 

2. 

00 1 oS 

fl* 

3 

0 (3 j fj t 

9f 


OD 1 p7 

in* 



SUftROijTlMF POLv*L ( NST art ,N f OEF ,POi. ,EV AL/ • - 

COmMOM^hT-Em 1 *7hALF »ONE .Two* F OuR ,F IFTEN»00, D 1 t u?,03 ,D* »F 1 FTY .P 1 » 

pui 2., 5;-; A l Li R P 1. , R ADO EG » DEG » N l-» N ? f *3 

COmPLEX h A L F »'}')£ . T f. (> » f 0 U K i F 1 F T E N 

c O.-'IO'J/Krrp 1 S^uf.G I ON M > , L 1 0 TO < * 1 • s p A C e I * I. » T-I UC « * 1 » -•- 

ft A (4 ) ,RirC*).p36l36> .100(7) » | ft G ( 7 1 • CpSLBL * » 0 > . 

0CilLftL*DEGLDL f FHTtl21 » FH A T i 1 2 * t F 6 » F.7 * L A B E L 1 < 2 0 1 #- 

iAbfi2(201»LArEl3(20) 


7H 0 9o 

74 1 00 
-7.4 I 1 Q-- 


Ijlulhl f utoLUL, r pi* i * - - 

L a BEl 2( 201 »LAbEl3(20) 

C-O^plex -ft Eg i o u 

rO.,MON/Cf?nf>3/ GAINS, 




741S 0 

74 l6 0 . 

7417 0 

74 100- 

74200 


0116 16 
000024 

Q1162I 

■ 0000 I 5 

L 0 1 1 6H6 
000132 
000163 
000 ID 7 
I 000003 
...0 11635 
00000* 
0 U 0 0 3 0 
OOU23H 
... 0 11627 
C 000000 

000023 

000022 
0000 1 0 


000004 
00000* 
onoooH — - 

000004 
a n o o n 4 
OcOOO* 
000004 
000004 

-000004 

000004 


Akl 

DA 

DF 

0 3 

ERrh 

Fmt 

F 7 

1 DG 
J 

L R PR 
N P 1 0 0 
N 3 

PFRQ ■ 

PHL 

R 

RP I 

small 

WIDTH 


A p H~A (SO t , PFRQ(5 0 > t SO 1 »P pH A (50) . 

pH f p g ( 5 0 ) ,.P H Am P ( 5 0 ) * PH D l P ( SQ.) , s A v FR Q ( -1 S 0 0 ) » 

5 A V A s , p t 15 0 0) » «; A y p p A ( 1 S 0 0 ) * AML ♦ A M P » B 1 G • 0 F i F L • F R » 1 M » 
p El A., p. H L -*-K p» 5M a* 5 T-A * S * 0 * ; 

tNT t LpPR»pPpP,NFXTtNPpP*LMX, 

r>FCP > OP 1 »EIRp»FPAM«tiRpMtERG p - - -— - 


DO 1 1 <f 

2 l • 

0 OIJ'- 

22 * 

0 0 J I *’ 

23* 

DO 1 J 

7*4* 

0 0 ] ] ** 

2 S * 

00 11 ", 

_2 4* 

" 0 1 1 '• 

27* 

nail" 

2 A * 

0 0 1 !'' 

29 * 

00 ] 1 i 

30* 

0 0 1 1 >■ 

3 1 * 

001 i v 

_3?i ...„ 

00 1 ?!* 

3 3* 

DO 120 

' 3 '4 * . . 

DO 1 7''. 

3 S * 

00 1 3 <• 

3 4* .. 

0 0 12 ? 

37 • 

0 0 1 3 \_ 

3 0 * 

0 0)33 

39* 

00 133 - _ 

*40* _ 


COMPLEX fa A I MS 

KEaI - ]ii 

LOGICAL f)ECR»!)Pl»Ef?pi|rRAM|ERpHiEB6P 

..CHuitLF^ F VA|«, ft ^ 

D I rj E N S I 0 r: POL(300> 


„THlS..<UQROuTlSE solves pouynohials -in R • 

F w A I ** POLYNOMIAL FvALUATlOtl FoR GlyEN V^LuE o f p 

J ^ Rt , s rjJ> T POI NT I M_i* 0L1IJ.M.AL-A ft ft. AY-_r.OR_ E..A.C-H ILE-W — ft~O.L-Y-N-CL| 

Ai-jD IS LOCATION OF LEADING COEFFICIENT 

«i C oee - Number.. Q r coFFF ic I f -nT.s . ro? Fa c h.-P°LyNom t .ai — sel e c.ted. 

■ CAlL S YSfPO I F K » F R 0 ) — ' 

r c CMPLX (n.n,-FRo*Pl2) 

Ea/ a I - n • -C MPI.-X i-fi fl.LJ ,f.l SXARJJ_tIL« 0 I — 

I F ( f I C 0 E F • F 0 * I > Go TO 2 

.DQ. .1 J = 7 % ...MCO&F... 

I = J “ 1 

. „ -1SJ 3 N5TANT ♦ I — - ■ """ 

I r.V.\L 5 F. V A L “ ft * CflPLX t POL ( I S I 1 » 0 «° * 

2 _ h-T- I n u — — : — 

RETURN 


7M2I0 
-7R22 0 
7H 2 3q 
-J.H-2 *i o— 
7S25 o 
7*426q ■ 
7*4?7 0 
. 7H2«0 - 
7R29 0 

_2_4 3 0o- 

■ .7*t32Q.. 

7 H 3 3q 
. 7*439 0 
7*4350 
_L*4 3 6 a_ 
7 S 3 7 o 
. 7 *4 3 3 Q . 

7 *4 39(5 
_ 7*4*400 
7*4*4 1 u 

7*4 *4 3 0 
. 7*4*1*4 0 . 
7 *4 *4 5 Q 


JL*4H.7-q- 

7*4*480 

_7*4 *4 9q- 


e"n; of compilation: 


diagnostics- 
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?E09,US f, 


1 AR ,F. PRf- VAR 


for se i x-oS' 23/7*4-08: ns :-o 9-{-2 , 3-i 


subroutine prevar e n 7 r y point nooORj 
STORAGE -USED ; C 0 1) I.UJLD.Q.0 D.S .54—0 AX. A. LoL-DnOO 0-** I-B U A-N K--C-OM M0N.t.2.L_O0 On 0 Q 

r..o.H M-aN-.pu.ncxs : 1 

. :)0 0 3 KEEP2. 000 0X7 : 

:)00R KEEP I 6 00003 1 


E X T E RJLI AL -j 3 £ EXx^E-N-C eS—i-X i- 0 c* . . . -M A M SX 

:)OOS • VRYGEN 

• 1006 VKYRA '• 

- • ..... 00 0 7 N ERR *4 *5 — 

0010 WERR3* 


5 TO R A G r ASS I GNNENJ.™ 1 B LO C K-*~ T-Y RE. -RELAX | VE.._t_ OCA t-i ON »•• NAME-1 - "" 

00 Q 1 0000 l-l .. S.o^. DOOR -t.-00no22-...OEBUG — 0003 0 000002 DHF1LT 

0003 QoOO^S HAjT 0 0 0 3 D cOOOOO HBlANk 0003 R ODOOQR H0 L k 

no03 fKi&0^2_- H-f-eC 0003 — ~0OOO2 7 _hDGT— 0003 00OOO& WEST I ; 

0 00 3,, 000 D SO HFpO 00 q 3 qOOORS HEpDO 0003 O0DOH2 HFPDN 

0003 000031. HINC 00o3 000005 H^EY 0003 000007 HMATR 

0003 0000 1 5 H (.j Y U 0003 0000 2,3 HO 0n03 0 0 0 0 2 6 H P L U 5 

0003 OC0012. H R E f A — 00n3 nOOOl 7 HROLL 001)3 000016 HR 00 T - ••• - 

oao3 aaao2u hsic oao3 000021 hS 2 ones 000022 h s R b 

00 Oh 0 000 1 0- -I ppEN 000*4 qOOOM- JOPEN OOGH - 0 0 0 0 0 l KOOE 

OQOH L DOOQ3 o mq TY ET 00Q4 000002 M R C L P L OOOh OU 0 Qo 3 NRrqIE 

ooo»j — 000006 n X m oao't oooao7 nxr — ono**- noooiR pcpl 

ODOM 000Dl6p5 L 0SH 0004 R OCOOU PVAR 000*4 000000 STAGE 

0004-L— 000020- Y£ S RA« 000*t- fc--nn»025 YESRLP ^00*4 L 000026 ye ss r l 


00 a i 
1 Oq 3 
.. J 0 0 3_ 
1 Q 0 3 
lO o 3 
1 Go 3 
1 0 0 3 
10 0 3 
10 0 3 
10 0*4 
100*4 

•10 0*4 

•100*4 
■10 0*4 


0003 t 7 
000037 
x o a o 3.x 
o o n a <4 3 
D 0 0 0 H 1 
0)0 0 1 *4 
0JCI0 36 
000013 

oaao2'4 . 
000023 
n o o 3 n h 
• a o n n i s 
000017 
000021 


1001. 

HACC 
-HCC-V- 
HFfiO 

HFPN 

Hn£ '• 

URATE 

M S T A N 

LFLT 

nr 2E-R0 

PF AC 

y es htx„_ 

YE 55RP 


.000 1. 
0003 
-O-OjJJL 

nno 3 
...0 0 0 3- 
noo3 

n o o 3 

0 00 3 
-OOU.X 
000*4 

.0 0 0*4 
DOQ *4 
000*4 


. 00 a 0 2 5 
D00q25 
-ao-Oo^.l. 
OOOo* 14 
— onuoio- 
o n o o '* 6 

nnoq l t 

0 0 0 0 3 o 

0 a U : ) Q a - 

L on 00 21 

n DO 3 05 

OGOn 1 3 

..4.-00 00 2*4.. 


4.000L. 

hast 

<41- 

hfgn 

HG £ N E — 

H'lOl-l 1 
hra.v - 

MS TAR 
t-'J Jp $ — 
N O M N A I 
nxb - 
p • i 0 M 
-Y.rS PCvt- 


5 o i r> t 

00 l o 3 


1 • 
2 * 


DO 1 0 1 
oai o i 

*4 • 

s* 

2 

’ 3 

00103 

6 • 

*4 

0010 1 . - 

7 ■ 


0 0 1 0 » 

*) * 

1 

n 0 1 n \ 

9 * 

. . 1 

r ‘ 0 1 0 i 

1 0* 

2 

DO 1 P.i. — 

..-1 1 *- •- 

3 

0 0 1 n , 

1 ?• 


0 0 1 G > 

1 3 • 

1 

P 0 1 p *» 

l *4 • C 



SUM ROijT-I nf pREv A R 4 • • * 1 • - 

COt,MON 7 KEEp 2 7 HBLANK» 0 HFIl t .HbLK»HKEy* hESt! »Hi- 1 aTR.HGENE«HRAw» 

1 HR£. T .A r H 5 TAN,^*E«.,JJNYQU,HROO Tf HRaLL.HSlC 1 HS 2 t HS* 4 B+~ 

HO»HXtHAST*HPLUS*MDOT,H 5 TAR,HlNC»HDEC*HCw»HcCyv» 

__ h A t. 3 L* 4 +a AXt^-H H FG« . H F P 0 » i 

hnom i 

DOhBL.E PRECISION hr l a NK . 0 hE j L T - - - ..... . ... 

CO?. MOn/KEEpIA/sTag E» K ODE*i'iRct-PLtNPpOL E » N rt 2 ERO»NXB»N-XNiMXR. 

... | Opr:.,, JOPfN, PyAR ,f? 10 m « P C P L ♦ P E A c , P S L 0 5 H , 

7 L S •-< T < »yE.S«Aa .YESSPpfOEijUij 'LFLT iyE 5 pcH»yESRlP. 

— y E SR.jU t NOMN AL , :J 0 T-v E T- — 

1 _ 0 o I C A L vCS-TX»rEsRAft,rES<-.RPiDEBUG*LELT»rfiSpcH»YESRLP» 

7 t s s 0 L I N 0 M N A L , N Q 7 f E • 


2o 

-3q. 

“0 

-S 0 

6 0 


2*40 
2So 
26 o 

-2 7 q — 
2 

2*^0 


• oooooa 
ooocioo 
— onoooo 
oooooo 
— 0 000 00- 
oooooo 
- oooooo 
OOOOOO 

onoooo 

OoO Cl 0 0 
--onuooi) 
GoOUOO 

onoooo 

u o n u n o 
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1 6 *.. c O.ERF-0PW— V-Ar? I A-Y-1-0 N s — I tJ- G E N E R A L—F 0 R M ■ ■ 

! 7* C 

4-2* 14 — LY-g-S-» A-.uJ — S 4-J 0— 5-4 

19* CA L L vrygfn i * t ooo ,* i no> 

20* RE-TURM - — — 

2 \* C 

23* C pERfOkM VARIATIONS 1,4 PARAmEtEp 


50 CONTINUE 

C A i.L V R Y R AAY-1.5-.LqOQ J 

RETURN 


3 D • C. . .-60 T_Q.-NE-X-I — 4 A T4-.C4-SE 

31* C PARAMfTEr VARIATIONS aRE COMPLrTFO 

3 3* ino COi/TIrjUE 

34 * . . P V A 9 » HOL.K ' - - 

35* RETURN 2 

3 6 * C 

37 • C 

3 A* . _ C pA.RAMF TEr.V A« I A.T If)N. FrROR - - 

39 * C 

40* 1000 CDwTINUE 

41* RETURN I 

H 2 * PJ-O — 


Em; of COMPILATION! 


no DIAGNOSTICS* 


oonooo 

oooooo 

oooaoo 

oooooo — 

oa o sjo i 

ooouns — • 

000005 

000005 

: ooooos 

0000 1 I 

0 000 1 1 — - 

0000 I 3 

000013 

000013 

onooi7 

000020 

□00020 

- 000U2G 

000020 

000025 


■■ 000044 - 
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»rOR»5iH I NTT ,F .P? I NTT 

FOR 1E1X-05/23/7H-O8* *(3{ 26 -( 5-*6F 


G'MroOTInE PrINTT ENTRY POINT 000222 


STORAGE. USED; ...C 0 OE.tJl.L- .00.0 Z H 0..{ 0 A T A (..O.L.jQ.n 0 1.0? i— BL A N K—G-0 M M 0 N ( 2.L_0 0-0 QO 0 

__EQm«O.N -RLOCk SX. 

-0003 -KEEPS 000O7H — _ — ■ 

)004 KEEP* OOD ) 34 

•• IQ 0 5 K EE P l (1 - 02 1620 " 

1006 KEEP16 000 D 3 1 

— 1 Oq7 F-R U 0 2 0 0 04-1-5 1 ■ — 111 1 


EXTERNAL REFERENCES IbLDC*. ^AmE> 


.1010 

-}0I 1- 
3012 
10 1 V 
30 1 1 
1015 


M V 0 u 5 


N 1 n2<5 
MI01S- 
f.| F R R R S 
NERR3 S- 


S r 0 R A G r ASSIGNMENT <B|.nCK* TY°Ei RELATIVE LOCAT ( QNi NAME1 


0 00! 
•MOl 
10 D 0 
.1004 
1007 

MOO 
1 Oo 7 

ooqa 

)0D0 
J 0 0 S. 

0000 
•1007 
MO 3 
3007 
MO A 
-1 0 D 3 
M 0 4 
MO* 
300* 


0 on 1 7 2 

... 000073 
13 j n u 3 5 
... 00 0064 

, 00307S 

I non 0 n ?. 

! 000 1 tM 
l 00 D 02 3 . 

I 00 0 0 n o 

aaooo.L 

1 0 0 0 0 n 3 

- . C00072 
000004 

000023 . 
OQlO 1 6 
_ .DiMOrM 
000024 

; ruo.o 1 7 

L 000021 


tOOOL 
1-4 6 S .. 
6n 2r 
_CA w 0 — 
I 1 
J 

<K 

.lelt— 

N 

.NE 


NRT 

NTnpOC 
N Z T 

op r 3 — 

pslosh 

,T.n 


r itlEI 
r ESN Tx 
YESSRP 


noo i 
-000 1 
0000 

0000 

n nO^ 
0006 
-0005 
(3004 
-XL 0 0 5_ 
000* 

. noo 7 
000 7 
onu 7 
000* 
-00-0 7. 

C 0 0 4 
.0006 
00 0 3 


onoi 34 

0001 25.. 

noon* 2 

. L -.--0 03 n 22 .. 

nnoo 6 o 

1 OOW^H 
I 0 0 0 0 0 1 
.. j— anSfi 7 r 

r 0000*2 
. 4 . ..acooui- 
000002 
. 0 000 / 3 

0000 2 0 
-R.-ona.i 1 1. 
noon 3 2 

OOQ..M 6. 

0 n 0 n 3 6 
-L- D 30 C?** 

1 cmoo 7 o 



N R C L p L 
N T M p 1 C 
OPT I Np 
PC 

PV AR 

TE-HP 

T ITLE2 
yESpCH.. 

yeszoh 


0001 000136 

13 L 

oaol 000032 

1 3 1 G 

0001 


OOOOH i 

13R G 

— 0004 000l 4 0- 

2 D 5 G 

OOoO oOOO 1 0 

600E 

- — 0000 


000023 

60 1 f 

0 0 D 7 000024 

A N 0 R M 

D0q7 000000 

BCD 

Q 003 

L 

00007 1 

BOTH 

— nooS—R — 0 1 6.66.4_ 

E v- 

-00QJJ-t:-0 0a0 7.3- 

GPR-INT- 

— ooan 

I 

00000 1 

1 

00 0* I ■ DOO 0 1 U 

I OP EN 

0 0 0 5 1 000004 

1 R 

aoo3 


000067 

ITHZT 

— 0,107 -I ODO l 0 S 

.Jj 

000& J 0000 1 i 

jopem — 

- oaoo 

I 

000006 

K 

0 0 0 4 000Mb 

L Ao^L 

0000 1 OOOOO 4 

L9EG 

0000 

I 

00 a oos 

lend . 

— 0 0 05—1 Q Q 7 6 4 4 . 

LOCPOL 

0000 1-0000(37. 

M • 

-- 0003 

L 

000072 

HOO 1FY 

GOO 5 (3 0 0 0 0 3 

N C 0 F 

000 s I 003724 

NO 

0005 


oooodo 

ndeg 

000-7. -OOOO 7 ^ N F J L-T 

— 0 0 0 * -L~ n 0 0 a 2 7 ...J4 0 M N A t 0 00 6- 

L- 

aooo3o 

NOTyET— 

ODO* 000003 

N R p 0 l E 

00 0 6 000004 

NRZERO 

0007 


000071 

N T m P 0 

— 0QQ6 000005. 

• N X tt 

-000*— oaooo* 

NXN 

0006 


00000 7 

N X R 

oao7 000003 

OP Tl YP 

0007 0C0021 

OPT 1 

0007 


000U2Z 

OP T 2 

0006 DOOO 1 4 

P C pL 

-000*- 000015 

PFAC 

- 0 0 0 6 


OGOO 1 3 

PNOM 

ooa? ooonM 

R K i; E S T 

00 a* oooaoo 

stage 

0003 


OODOOO 

SUPERS 

0 c 0 X- 0 0 0 D 2 5_ 

--T EmP 0 

-000-7 fi0004S- 

-tem pi — 

00 0 4- 

R- 

■OQOOOO 

T ] TS.E ■ — 

noo 4 onarMo 

TI ILE3 

0007 0000*5 

V al 

0007 


000a 1 1 

vfilt 

0006 _l oooiMo 

Y F SKAtY- - . 

0 0 0 6 0 0 0 0 2 S 

yesrlp- 

„ .. 0006 

L 

000026 

yessRl 

00 0 3 000002 

Zn 

0 00 3 000001 

ZT 

0003 


OQOOOS 

ZTVAL 


^ 0 1 0 1 \* SL'BfiOli T ! NF p R I N T T f • ) , - 00G00 2 

OOlOl 2* cO, •< MO N /KEEPS/ SUPERK»Z T »7M«T>3»N7T, 2 TVAL t 5r)l i iTH2T l yE5Z0H»90TH. 7637 q 0n00o2 

. .0 Q 1 C 3 3 • l (.-1.0 C 1 F Y • 6 P « I N T — — — 2-6.3 B 0 0 0 0 0 D 2 

0 0 1 n 1 4* LOGICAL YES7nH*POTH,«oDIFv f SpRINT 76 rOq OoOU02 
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. 6 * . 

7 • 

a * 

9 • 

1 o* 
i i • 
i 2 * 

13* 

1 H*_ 

15* 

I 4 
17* 

1 a* 

19* 

— 2 3*- 

2 1 • 
22 * 

2 3 * 
2a* 

25* 

2 6*_ 

27 * 

2 o, * 

29 • 

30* 

3 1 • 
32*. 

33* 
.... 3a* 
35* 
36* 
37 * 

. _ . 3 u * 
39* 
a t * 
•*» 1 * 
n : a m 1 


COmHO N/KEFP 6/ T I T|_r { 2 D > ,T I T^E j < ,0) • T I TL ^2 t 1 0 j »T I TLE5 ( lOl »nAmE (2 1 * 

.1 — C A Rf> U20 ) • U A B E u ( 20 J. - 

REAL NAMfr 

■— CO.n-M-0 >U*-ZZpJ.n£ti Q£g-».N.E QjL,M.E.. t .M^-0 F-*-{-R„U.aQ ClL» jg_U aCLQJ-» W.D-U -00 Q J-, 

1 LUUnnO) tLOcPoLt 6r.,6 0 ) , E V ( 150n) 

_ c 0 M M O.N ( iC.E.E p..l_6 /.S T A r, E , K 0 D E ! N R CLP L . NRp a L E » NR z E rq j Nx B t NX N » n X R » 

1 [OPf'it JOPE^iPv^R ipNO« tPCPLipF *P$LOSH* 

2- .. y £ 5mTx » rESRA A , yess?RP iOERUC *LFtT ► yESPCH * YESRtP » 

3 y E S <: R L * N C N N A L , f'i Q T y E T 

_ |_ P r, I P A I y - 5 M T-X -» Y ES.R A a_,_y..E 5 =; R P » D E 0 U G-t.L E L-T.* -Y E 5p_ C H.« yXS R L-P-* 

I Y E S S 9 L * N 0 M N AL , N o T v E T 

__ C0j<MQn/.C5uO2/_qC0( 3 1 » CP T T y P t 3 ) * T E Mp ( 3 1 ».V F I LT t 6 ) . R Eq ES T , Op T l NP » 

1 0RTl,0PT2»0pT3,ANr l RM>TEnR D, l 6 >iTEMPt< 16t »VAL 1 ‘* , » 

.2 —n T .1 P n , M T M p □ C • m T M p ) C • N F I L T » 1 1 <4 ) » j j t *»l » K K ( a 1 t P c < ** > 


RRyNT HEADING 


iyr i Te 1 1 > * Aon i title 

„6d0. fO«MAT ( l ' «J 9 X . 2 0ftH/20x i ' cOnTI NmQUS .sysTE m maTr lx polynomial*^- 1 — 
ft* i TE < & . An 1 > IqPEm , JOPEN 

__60 1 . _r.QgHA.T-t 2 n-y-»-*-S-A MP.L.] E.V.J-CE — LRil .• » , ; 3 ^_C 0UJNU±^.^3. r J-W-l 

rVR t TE ( 6 , 602 ) 

,_6D2. F-OrMAT . < 3 (/ J »2cX.»»N. 0 N Z R-0- M A-T-R-I— X E L E- M K -T -S- 

! • . . • / IM 1 


no 15 > 

H 6* 

no i s '» 

4 7* 

n o i 5 •' 

4 0* 

00 1 6 1 

a 9 *. 

00 1 A ! 

50 • 

00173 

5 J * 

00171 

52* 

00 1 7 S 

.. 53* 

0020 t 

5a* 

0 0 2 Q 3 

5 5 •_ 

00 2 1 1 

56* 

002 I •' 

57* 

002 1 t 

5 8* 

00 ? i * 

59 * 

0 0 2 1 * 

40* 


C PRINT N0N2ER0 POLYNOMIAL CO£FF I c I E nTS 

C 

N a 0 

no 13 J * i , m 1 a 

. ... NP t a LOCPOLt 1 t *Jl — ■- — 

IF { f! p T • E 0 • 0 1 GO m 13 

IF_M.H.Inr.T ) .NE—I — .-n R. . — JC-T- NP T l .-N-r— ^13 — GO— T-Q — l-0oO— 

LBrG = LI. <NPT> 

L£nD * LO EG ♦ nD I NpT J . 1 

DO 1? K=LP£G*LEND 

PS T jC*.„..tHe TpST EPR fqUaUTT BETWEEN ^ N 0 N - INTEGERS K a Y... n Ot-BE...ME ANI nGEuL* ....... 

IF (EvtKl.EO.O.) GO TO 12 

1| — ge — N — t .. . J ______ 

i i < m > 3 i 

K K i N 3 = K . L S£ G 

PC IN’ = EV*.^' - - 

]F(N,NE,a)GoTpl2 

r.wjTE <6,6:3 33 

_ .6n 3.. FOr •: a T < o y , a < 3j 3 , j P( r i a # 5 , 5 a j ) . . 

12 CONTINUE 

IF (N.ET.Ql RETURN 

,Y R f T F <6 , 6Q 3 1 < I I< w ) t „ 1 J < M > « _ K K .LM P.f-t Mi-iJHL!?X^NJl 

R E T 0 R n 


LOGIC ERROR PI 5 T f) i? P • R MATRIX 


7 6 a 1 0 
. 7 6 a 2 q - _ 
7 6 a 3 o 

_76.a H. 0 

76aS 0 

,.76a6o 

7M70 
_ 7 6 a 8 □ .... 
7 & 4 9 q 

_Z45Qo 

76510 
_ 7 6 5 2 q ..... 

7 A 5 3q 
7 6 5 H q .. 
7 65 6q 

-745 70 

7 65 6 D 
-7659 0 
7 6 600 
.76610 
7662q 

_76&3o 

7 6 6 M q 
..7&65q ... 
7 6 6 6 o 
7 6 6 7 q 
7 6&00 

_ 7.6 AVq 

7670 0 

...767 1 0 

7 672,0 
7 6 7 30 
7 6 7 0 0 

— 7.6.7 5 q 

767&o 
.76770 . 
76700 

7 6 7 9q 

_7A80o — 

760 1 o 
7 6B2o ... 
7683 q 
7684 q 

7 6 8 5q 

7 6 Q 6 q .. _ 

7 A 8 7 0 
7 6 3 8q 
7689 q 

7690q 
_ 26 9 1 0 — 
7 6 9 2 o 
.. 7693 q 

7694 0 
7 6 9 5 0 
769 6q 



002 r* inno CONTINUE ' 76?7 q OO0172 

00? 1 A 62 * K0o£"'"-&2 — - — 7690 □ - - 0 00172' - 

0021' 63* RETURN ! 7699 a 000173 





ZSL-9 


FOR • US* r *WTOuT »F .PijTOuT 
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KEEP9 
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.aQonJJL 
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000031 

aoaeJj- 
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N 1 0 2 S 
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ml 
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-f.OOl 

rum 147. 

21 ir. 

PriCl 1 
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nijnyn l 

j 0I)0346_ 

i nunuM* 

K fli;0062 

I nuo4R7 
0 u 0 0 o 3 
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L? c 

H 
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n2 
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uconO'L e i 1 
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R .00034 1, 


nno6 

c 
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L 
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0 0 0 7 

I 

000 u 1 0 ioPEN. 
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0 0 0 0 6 7 
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I 

( i P D 4 6 l L 

00 0 4 

1 

ooo i lo 

UAhtL 
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j 

nr; Of. 0 1 . upHASE_ 
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n n n 0 D 2 _ 

.Lf.O.LE 5. 

o on 3 

L 
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DU 1 1 

1 

P 0046? 

M 1 

cqo5 

I 

f,nr/i J H fiEir, 

0 u 0 n 

I 

nnn pub 

NFflO. . 

0007 

L 
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L 
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0007 
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0 00 7.. 


0000 rs5 

N X D 
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0006 


00 0 0 ? 6 

W 1 

n n 07- 


_P JO 0 n 1 4 pC P L 

nnn ? 


_aoca L 5.. 

_PF vC 

no07 


fl 0 0 n 1 6 P 5 L 0 S H 

0007 
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noo5 

K 
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.. 00 j 1 
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RPS 
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Tn 

M10 
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no ft 

C 

n f P u U 4 

T . p- 

f • f.l 0 7 

L 
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notw 

L 

r- 0 0 D ? 5 

Y E S P L P 


ooot 

OOO I- 
OOQO 
.□DO I 
00n7 

-DQU- 
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. OOoO.. 
0006 
0007 
0007 
.,00.1 P__ 

0 000 
00)2 

00 n5 
0QD7 

C Q 0 6 


0000^7 

oori3a6. 

nano 1 3 

... 000063 

L 0 0 0 0 2 2 

A non 3 4 3. 
0000 1 * 
-R... OO UOO 3_ 

c pnoooo 

i couo ii 

L 000023 

.C...nn r ; 0.g3. 

I n n L 1 o t) 2 

p 0 0 U 0 4 

r no 4 5 6 
. 000006 
000027 


1716 
2 7.Sg.~_ 
601 F 

?L ... 

DERUG 

OPF 

0*1 

ER.l 

half 
JOpEN . . 
L.FLT 

L.5 D 3 1 

N 

NEXPO. - 
NR 

NXN 

n2 


oon6 onoo2H raddeg 

001 t C ...Q r .HiOOO RUT.E.., 

0004 k oooo on'* title 

001? C COOOOQ yp 

0007 L I'PO 0 2 6 yESSRl 


0001 OUo25o 

-0001 000276 

GOOD Q 000 36 
00 1 I R 000226 
0006 000025 

-0006 0000 1 2 

UOO 5 c 00022 * 

0006 c OOQOlO 

onoo i oooooo 

00 OS 1 000572 

uoia l oooooo 

_oq i o_L . ooooa R 

0005 1 000456 

00 1 2 0 0 U 0 u 6 

0007 00000? 

-0007 0 0 0 00 7 

0006 0 0 00 3 0 
_0004_fi_00002 1 

0005 c oooooo 
.0006 000022 
ooo« n u o o 2 4 

0007 L 000017 
0007 l 000021 


fOO 3 l p 0 0 0 7 n YES 7 OH D ci U 3 000002 7 h 0003 OQOOOl ZT OOO 3 000005 zTvAL 
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0 0 10 3 
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001 OF 

*in l /if 

\ * 
2* 

3* 

- 4 ■ — 

5* 

*. 

-U u ] {> . 


ooic 1 

7* 

.. 00 107 

... £♦__ 

0 0 1 1 r 

9* 

. . 00 1 n 

10* .. 

ro 1 1 1 

1 1 • 

00 1 1 i 

1 2 *. 

0 0 1 12 

13* 

00312 - 

. .. .1 4- __ 

■ cou: 

15* 

- - 00113 -- 

1 6 * • ~ 

no 1 1 « 

17* 

00 11 

4 £ «... 

0011 f 

1 9« 

. OD | W ... 

20 » . 

00 3 1 7 

2 1 * 

. . r 0 1 7 \ 

22* - 

OU 1 ? ! 

23* 

C 0 j ? ‘ 

__2 H t 



0 0 17 2- 

25* 

. -.00125 — 

2 A* - 

00125 

2 7* 

CFi 00 175 

. _ ?B* _ 

L. no 1 ?F- 

2 0 • 

cn 0 0 | 2 1 . — 

30* ... 

00 P 0 | ? 5 

3 1 « 

C 0 t 7. (■ .. 

.... 32* 

00 1 3r 

3 3* 

.0013*'. _ 

3 « * .. 

DO ! 3*- 

35* 

0013 

3A*._ 

0 0 1 3 * 

37* 

— - 00 1 35 - 

30*-- 

CO 1 4; 

39. 

0 0 1 H 7 

An* 

00 147 

4 t * 

_ 0 0 3 5 f _ 

*17. 

CO 1 5t 

M3* 

- - OCUSf 

uqt 

00 1 St 

M5* 

00 1ST — 

M6* -- 

DO 1 51 

M 7 * 

GDI 6C 

*t R * 

00 1 6 ( 

4 9* 

.. 0 0 1 a r 

50* 

CO 1 At 

5 1 * 

0 0 1 6 r 

52* 


5 u p. r 0 u t i m r putoOt 

— C-OuHO N / K F FTPS /— sup *; PK z T » 2 M »tD 1 N7-T >Z T-V AL-t 50 1 i t T HZ T » Y E S Z 0H » RO TH » — 

1 mO[> I F Y * 6P« 1 tlT 

— LO^ l C AL y E S70H 1 F 0 T H f ilpD I F v • GpP f N T- ' 

C D 1 M P M ^ K FF p 6 / T« Ti F < 2 0 • ,T I T L E I t 10> , T1 TlE2UoJ »T I TLE 3t 10) »NAmE ( 2' » 

4 c-A R tr( 2e-K-L-A-fct r t-2tH J * 

R F A L nM-If 

— COhOOn^KFEP^ /- ROOT- { 75 ) 1 F’A t ) , N f I G 1 N A i-NF * N E <-7 5 > i KO 1 75-) 

KOOT.FA 


COMPLEX .......... 

c 0 1 -M on 7-K F E-P-l «•/ H *L F » 0 ME t T « 0 » p Ou R , F 1 F T E N » 0 0 « Q 1 , D 7 » D 3 » D H » F 1 F T Y . P i +' 

1 pI2,5HALLiFpl,RAOnEG»0EG»Nt,N?,N3 

g^P-trtX H XL F- f -ON E-t-T-*0-*-F OU N rf^I f-T E-N — : — 


7777 0 

-77780- 

7 7 7 V 0 

— 7 7 ft 1 q- 
7782u 
—7-7-8 3 0“ 
7 7 6 M 0 
- 7 7 fl 5 0 

-7.7 6 £0 
7 7 8 ?o 


C0r;MOl> / KFF:pl< l '/5Ur.f:iKOREiNK C LPL»NRpOLEiMHZE:F>(;«f'!XB>HXN»NXR, 

_..l j OPpH , JoPF.fr , P V Aft t PNOM , PC PL *PF- A C » P5LQSH * -- 

2 YE5nTX*Yr5PAfl,YES^PP»DE0OO»LFLT*YESpCH»YESRLP* 

— 3 • — y E S S r? L * N 0 H N A L , N 0 T y F T - - • - - ' ‘ 

LOGICAL Y CS!*Tx*YESRA^,YESc.PPiDERUG.t.FLTiYE^PCH»YE5RLP» 

— 1 1 Yl -S-5 f>t-> U 0 H N-A L w OT-Y-E-T ~ • 


7792o 

7793o- 

779Ho 

7795o - 

7 7960 

7-7.9 7 0— 


C Of! MOM / KrrP|9/Lf»AH!,LpHA5rn i pfiLFSiL5DRL»L ZEROS 

-LO r i-c AL- l_GA JN,LPHASE« l P0LpSiL5DPL »LZ£P05 

c 0 » 5 , M ON^CPot)!^ ft U T f" f 7 5 1 I AMP 1 7 ) iFRP»Flp»0PF»ftp5iCPS»L0Ct75) * L • P- 1 

COMPLEX-- - -k*7Tr ■' 

f, 1 > E N s 1 0 m P P I P U 5 0 > 

E-0 tf+V A LEM f-g <-P P-if 1 ♦ P 00 T-H M » r 

COhMCn/CRUOS/ UP •nowN,NEXPO,DEXpOfAi<; (NZ . 

C 0 t-i P L p X llPiDOY/N 


7798q 


_p. R-j ii T._ -X-l-T-L- F- S- 


IF L.NOT.NOKLAL. . a N 0« • • UOT . g PR IixT-)- GO T0-.9 i 

TpjTF l 6 f fcf 0 ) title.label 

AnO- FOrMAT 1-1 Ml » 1 7x , 2.0 A H/.20X t 2oAu/.} 

r p. p_i D p_lX 1 qMaL .Y 30 .TP-U T F 0 R 0 pE M-— L. CUXp— &P -Of?— C A 1 N y A .R.1AT-I ON - 


--7 Sq-1 0 — 
7 8 0 2q 

— 78Q3g- 

78a**o 

- - 7 8 0 5 a - 
780 6 o 
— 7 80 7 0-~ 
7 80 8 0 

7 8 | 00 
-.7 8 1 1 0 . 

7 8 l 2 0 
7 8 1 3.0— 


7 8 | H Q 

i jp iLzERpc rjRl TE (.6*60 1 > -I-0 o EN t-JOPEN — 

IF iLpOLFS* '■■p|7ElA»6n?) lOpEfjijCPEN 7 

_6n t_ format ( 3.( / ) »2Dx » ' OP- E f< L-OOP... 7-E RO X 0 up U T AT I ON SYSTEM- opErEq . AT m*. 

| T P I X fLf.PfhT 10C A 7 ,nN'//?0 J( , t P0-M3, , i E 0 L U K ’ j 3 ) ' Ijjjo 

6^2 f j} t- h 3. ( y j. n p E.K . L 0 0 p—p O.L E- -C 0 w p 0 T. A..T. i.O ti _ Y S7.F-H--0 pENE-0 — A-Y — H A-f 7.8. 1 - 0 — 

l p I v ElL|TFT tOcATjOhV/7P>**POlA*.I3,'i C 0 L U (-■ A * * I 3 ) 78z00 

_ c * 1 „ . - - - — 7 821 0 - 

C PR | M ESTIMATES 7G2’° 

„C : 7Bz8 0 

28Z5 0 - 

7B26q 

- ..... 7 8 2 7 0 

pRjMT C0| l.'KH HEADINGS , Io ? o° 

... / S 2 v 0 


IF 1l'A«NE*Q) Y'R I Te 1 6 t 603 J 1 £ A 1 1 > * 1 " 1 » N A } 

6p3 F Qp.M.A_T.lZZ2-<.2i}jL- f -L E-F4^gNVALUC- — f-S-T A-T-E s — « — * — »— // . / . i 1 7.y^lp-F4-8 »5-»- 

• 5 E l 4 • 5 i J 


0000(10 

— 000000 - 
ooaooo 
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ooooon 
— onoooo 
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onnuoo 

-oooooo 
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— oooooo 
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onoooo - 
oooooo 
■ ooooon 
oooooo 
— oooooo- 
oooooo 

— onoooo 

OnOUOO 
• onoooo 
oooooo 

— OOOOOO- 

oooooo 

— oooooo 
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oooooo 

oooooo 

oooooo. 

oooono 

oooooo 
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OoUUlS. 

0000 1 5 
00 001 5. 
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— - OoOG t s 

000026 
_.... 000037 
□ POO 3 7 
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0 n 0 0 3 7 
- 000037 
000037 

— - OOOU3 7 

000037 

000055. 

000055 
O00OS5 
0 0 0 0 5 5 
000055 


6-15 4 


ooi *> J 
DO 163.. 
001 A? 
.GO 163.. 


_ 5 4 • 

55* 
56*. 


V/R i TF l 6 »6Q9 1 
_ 6 05 .. F. 0 p K A-T- - J-2 J /.)..« 5 .1 X .» .! £_ 
1 ’9X » * F R P 0 [j t r 

2 MhA filW/RYt.HX.^i 


I ... 6 N— V 


L- - U . E 5 


ooi*: 

0016?. 

0 0 1 6 * 

. ooi 6‘- 
0 016* 

DO l 6 * 

57* 
5?- 
59* 
6 0 * 
6 1 • 
A ? * 

.. C. 

c 

C- 

3 ♦ fOl'MT • , 1*1 X»*pARTi,l4X»'pA R T«,: 

.9 / ! H K - . 

9 CO',1 1 '|UE 

ARrAN^E EIGENVALUES *N ORD^r OF 

00 1 6f. 

63* 


IF 1ME 1G,F0*0> RETURN 

00167- 

69* 

__ 

..oF| P-.-.on n i- - 

00 1 7 f 

65* 


DO 10 N=M ,HKIG 

0 0)7 *. 

6 6* 



- Eft j - Rp I P < 2 *fi- 1.1 

00 1 7*- 

67* 


Ell ° lip | P < 2*N ) 

_ DO 17 5.. 

6 I? *. 


1 p_ Si PC. 4.1 — M_ I*— FlU "o-* 0— 

00 1 7 7 

69* 


IF < 1* ftS 1 F ; 1 ) • i. T « del) El 1 *n»0 

P 0 2 *' 5 

7n* 



R 0 r T f N 1 = CHP.L X 1 Ep 1 , E I 1 1 . 

0 0 2 0 2 

7 I * 


LOc <»•' > = n 

. DO 2 n 3 

72* _ 


. | 0 A M p < t! ) = c A 8 5 < R 0 0 T ( U 5 1 -— - 

00205 

73* 


IF GO TO 12 

0 0 2 o ■ 

7 4 • , 


-Mr nO-s.-Mr ?-G — 1 - 


( * * R 
► 2X, 
: * .a 


ea l » 

.JCnPE’ 

X»»hz 


I2X 

i+A*- 


7830Q 
.76310 
7832q 
_ZJ3 33q. 
7 8 3 9 q 

-7 8 3 5 q 

7 6 3 6g 
• 7 8 3 7 o 

783«0 
-7.8 3 9 o- 
7 0 4 0 0 

7 8 H 1 o 


00?1 II 

D 0 2 1 3 

oo? r> 

on 2 i ' r 

0 0 7 2' 

00223 
0 0 2 2 3 
00 2 2 '» 
0 0 2 2 
n 0 7 2 •» 
002 2" 
00 2 7 • 
DO 2 3 ; 
00 2 3' 
00 2 35 
0 0 2 3 6 


7 F> • 
7 X * 
77 - 

7 3 • 

79 • 
. _ 0 0 * 

8 l * 
82* 
6 3 * 

8 4 * 
OR • 

6 7* 

80 • 
6-9 • 

9 0 • 


1 I 


00 11 N = 1 ,NEND 

DO II M ~ M 1 »NE I 6 

IF < A HR * 0 1 .I.E t AMP ( N 1 ) GO. To U 
CA L L xCUr, <LOC iLOC tN J > 

■C-A-t-l X OJ ft P-i-N. U 


COf.TTNUE 
..COfjT. I WUE. - 
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7 8 4 4q 
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78m0q 
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- 78b5 0 . 
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78ilo 
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..000233- 
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GO TO 30 
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— . 000250 
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95* 
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000253 
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78600 
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... DO 2 7 ] 
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7 8 6 9 q 
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30 
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C 
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L ** LOCtfJ) 

7 8 7 6 q 

00 0 30 6 

noiii, 

. 1 0 6 * 

.. 51 

R U T E 1 ?J J 8 N 3 0 T 1 L > . — • • ■ 
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1 7873a 

o n n 3 1 6 

3 0 V - '> 

l n 3 • 

5 2 

' J 0 n T I'll = fiJTC ( N 1 ........ . . 

78790 

ono3 1 6 

D0 3n ’ 

109* 


KET UR -i 

7 8 8 on 

000320 
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SJdSOuTJNE RAvVfitX Entity POjwT nOddS 

STORAGE M S E D : coo E I I ) 0 n 0 0 21 ; p A T M 0 > 0 -* 0 0.0 **. 5. .9 L A.M K r PM M.o N ( 2 \ ...0 00 0-3 0 - 

_ _c 0 1 'iQN R t o C K s ! - : 

no 3 KlCEPi i._OOO. 0 _?l , 

E <T£BNal REFERENCES I QLoCK » NAME) 

)Q0RN£RR4 , 5 


STORAGE ASSIGNMENT IntoC^. TYPE, RELATIVE LOCATION^ name) 

TOO 3 I 000 0 22 DEBUS 

. ) 00 3 l 0 300 2 3 .lFL-T 

) a o 3 omo o <4 n r 2 f r o 

)00 3 O’J-OOlS PFAC 
)0q3 l 0 0 0 0 1 2 yESmTx 
-0003 L 0 03 0 2 1 — Y.E 5 S &£- 


nrjoo oo 0 poo injps 

...0003 (_ 0000 2 7 — W0MNA(_. 

noo3 oaonos mxo 

.. 0033 . . 0000 * 3 . pMOM 
nao3 L nnoo24 y espch 


000*0 IOPEN 
oaa 3 o . N o T T E T- 

_ ^ i. 


0003 o 

.. on D 3- L 0 

0003 . 000006 N x N 

_ 0003 _ 0000 1 6 PSt°SH 
000 3 L aa002o y E S * A vy 


000 3 oOOOll JOPEN Ooo3 J 0 00 00* KODE 

... 0003 000002.. NRCLPL - 0003- -OOODO 3 Nr P0 LE 

ooo 3 00 0007 NXR U003 . 0000 1 4 PCPL 

0D0 3 ' oOOC * 2 PVAR .0003 OCOOOO STAgE 

OOO 3 |_ 000025 YESPLP 0003 L 00002* YESSRL 


DO t 0 * 
00 1 r. 3 
n 0 1 r 3- 
•00 l n ) 
00 ] n 3 
0 0 10) 
0 0 I 0 4 
•DO l 0 1 
.DO I CM 
00 1 CM 

00 ) c ■» 

oo i r s 

0 □ 1 C 5 

00 ! 0 7 


1 • 

2 • 

3 *. . . 

4 • 

s* 

6 * 
7* 

9 • 
*_ 
10 * 

1 1 * 

1 2 • 

1 3 * 
14* 


subroutine ra' ; v.t x i* ). • - — - 

COr!MON/KEEp* A ^S T A(;E.KODEiNR c LpL,NRpOLE*NR z ERO»NX9.NX N »NxR. 

.1 lJ)pr-N , JOPE-N.,.P v-AR » PNOm ,PCPL-» PF.AC *-PSLDSH.» 

2 yESMTX *YESRA* .YESqRP .DEBUG »LFLT »YESPCH »YESRLP. 

3 .... .Y E 5 5 R L > N 0 M, N A L t V 0 T Y E T ... .. - - — - 

LOGICAL YESMTX’YESPAfl.YESsRPtDEaUGtLFtTtrESpCH.YESRLP. 

I Y E S S R L * N 0 M N A L , N 0 T Y E T 




oooooo 

2 9 o 

oooooo 

2 5.0 — 

QaCOQO 

2*0 

OQOOOO 

... t 2 7 0 

. onoooa 

2^0 

oooooo 

. 2? 0 

oooooo 


c ra h parameter matrix definition not permitted 
KOnE * * 0* 

. RETURN. 1 - - - - ■ ■ 

end 


onoooo 

000000- 

oooooo 

ooooco 

DOG 0 00 
00000 1 
000020 


Em" of co /> p * la t r on : . _. 


NO D J AG.N 05T.IcS » 


6-157 ! 


e'POP^.US-V o E 75 ,.P *RE S E T 

F 0 9. >E 1> * -OS/- 2 V' 7 *4- 0 $ * <♦ 5 ! -2-S--C l*-,- 2 > v 

e J>3« 0* *7 INC RE$ET ENtR* P n f T OOOMfi 


.5 T OR A G E - USE 0 ; . C0DEX.J.)-..-Df)O-U 2 { . r>A-TA-(0 I— On 0 00-4 |_-B L*JJ.k~€- 0 M M 0 N ( 2 i-0 0l>000- 
Z 0 MM o Ji •- 0 L 0 Ck.S -1 ■ 


KEEP2 

KEEPS 

*EEP*4- 


0 0004 7- 
000102 
000263- 


0006 

0 o.q-7— 

< £ E P 5 
* g e p 7 

000074 

-00*07-1-2- 

10 1 0 

KEE p G 

000342 

JO I 1 

• KEEP? - 

nn.07OS 

Hi 2 

< E E P 1 0 

□21620 

■ • - - 10 13 

KEEP 1 1 

017723 

33 1 4 

KEEP 1 3 

000313 

50 i B~ 

— K££P l h- 

•00 00 3 1- 

10 16 

KEEP 1 9 

0D0005 

_. G 0 3 7 

... KEEP 20 

0 00 2 2 7.. 

1120 

PLT 

0000 l 2 


.£ ill?.'! J 5 ?_F E SE ,n C EXJ.pl.QfKt NjLmIL 
.. 002 1 - . NERfia*.. - 


STORAGE ASSIGNMENT tgLOCKi T y P £ » RF L A T r V £ LOCAT I ON i NAME > 


30g6 t 
0020 
001 2 
0005 , 

1 30 3 i? 

_J)00 3 

10 Q 3 
. 0 Qo 3 ... 

1003 
■ 1003 
1l03 
-0 3 1 5_. t . 
30 J 5 j 
JO LA L 
10 16 L 
DD 06 L-- 
3007 | 

_ 3 Q 1 L_ I 
0 0 o « I 
0 3 13 
0 0 05 j 
0 3 15 j 
00 15 


000171 

00 100 7 
c 1 6 6 6 4 
.000 I 5 1 
000004 
J3QQ3Q6. 
0 0 o Q '4 2 
.000307 
010026 
000316 

non 02 2 
033310 
ouii i i 
0 D o 1 0 1 

GUI J'l 2 

..□□0372 
000707 
. D 0 Q ^ 5. *♦_ 
000001 
103720 
101066 
GUI J0‘4 

O u •? a n 7 


dOTH 

0 I r.t 

EV 

gsy-m — 

H0LK 

MES.TJ 

'h F p D N 
HMATR — 
HPU/S 
HR00T.._ 
H5lfl 

1 OPEN — 

JOP pN 
LGA I N 
LPOlES 
MOO 1 F Y_ 
N o C 0 E F 
JiELU 

N I S 

NP H A S E 

;n i f k o 

* X Sr 


0005 000212 S Y 

— r n 20 OOOU 1 0 • 0 I E2 

00 0 7 0005 7 o p Q Pol 

..-Coos nnna 37 -HACc- 

0003 0000^5 H c C iV 

0 0 03. 0 Ofl-rJ 3--ME SO 

OnO 3 il n 0 n 4 J wFPN 

COO 3 0 0 0 G 1 6 hMEW- 

0003 OiOn 3 6 M RATE 

GOO 3 GOOD 1 3 MS T AN. _ 

0 DO 3 0 1 0 0 2 ^ H x 

no 1.2 ooai i ,.D. t L...j r 

drill 000072 KD 

0 Q 1 2 ... ... □ 0 5 6 7 H l L 

Of] 1 6 L 0 CJ 0 C 0 3 lSDRL 

COl t..._J — 0 0 0 H.5 5....L' a — 

0012 ] QOO0OO mDEG 
D 01 3—4—0 0 .77- 3 .2— m£-D» JU- 

0 0 05 I 010003 nIAIN 

0007 J.. 003706 mmCoEF 

noil i o r n 4 = 6 n r 

C-1 l 3 G if 7 6 '* G M 5 E I G 

1 g g 7 j 010 7 11 f]ZD 


0005 000166 d d 

—ooo-^- -oooo 63 cp 

0007 0004*4 FKF 

- 0003 0 0 C 0 2 5 H a < 

0003 000033 ho 

—0 D Q 3 0.0 0 0.4.4— H f (. 

0003 000010 Hr,E 

- 000 3 0000 4 6.. HN( 

0003 0 DO 3 1 1 HR) 

0003 OOOQ3o -HS" 

oo2n aoooii i Ct 

0 0 2.0 OOOOO-i-.J tj. 

GDI? o n 5 6 7 o K [> ; 

. . 0 a 1 2 0 0 7 6 4 4 LOi 

0016 u 0 0000*4 l 7 l 

--00 I 2--1-000003 N C( 
0007 I 000705 Nfl ( 

ooi 2.-I— ooJ.Qa.l— ne-4 

0 0 0 5 cool 544 N G I 
..0015 l 000027 M nj 
oois i noonn2 nr, 
-.nnl4 i oo o 3 1 d Nv 
0007 I 0 Q 0 7 1 0 Nz 


r- 



00 1 5 L □ 0002 2 DEBUG 0003 D 000002 DHFILT 

- — -00 H— C -Q00 2 26 E A - 0017 C OOQOOO E STZ 

OOoS 0 0 0 0 0 5 GAIN 0006 L 000073 G P R 1 NT 

0003 oO 00 35 - H A T-T- 000 3 0 000000 HBLANX 

000 3 oOOO 3 2 H D EC 0003 00002? HOOT 

0.0 o 3 n 0 0 0..4 Q.—HF.RQ 0 0 0-3 QDCQhS H F p d D 

OOQ 3 000031 hINC 0003 000005 HKEy 

000 3 QOOO * 5 -HNYQU 0003--- 000023 HO 

ODD 3 QO 0 0 1 2 h«ETA U003 ODOOl? HROlL. 

00 D 3 000020 - HSlC 0003 00D02I H 52 

002 0' 00-0 0 0*4 ICT 0000 000000 iNjp* 

00 0 6- 00006 7- -I T H Zjt -00 1 2— 00 l 75N Jc — 

00l5 i 003001 KOOe OOIS L 000023 L FL T 

.... 0014 ... 000 1*1 H LOCV • - Oo 1 6 L OUODot LPHA5E 

0 Cl D *4 R 003 0 5 1 max U 00 4 R 000037 nlN 

0 0 1 4 -f 0 0 0 3 1 2 -H C O F V 00 12 - 003724 nd 

0007 j o007 0 4 0D12 I 0Q00D2 NE 

001. 7 . | 00 0.2.2 6-N.ES 12 00 1 4—4—0 0 0 3 11 N E v 

0011 000457 Ml 0020 L OODOCt NICPLT 

oa l 5 L n00a3p NOT YE T 0d2o 000 00 2 Np 

■ 000 5 I riP0l & 3 ’MRLFR 0 n 1 5 I QUO □ 0 3 NrroLE 

00 1 5 000005 M X B - 0015 Q00006 Nxf4 

0010 j n Q 0 3 4 1 NZPOLE . 0 0 06 I 0 0 0 U 0 4 MZT 



| 6-158 


TOO 4 * 

3 0qS 
300* 
JPOt- 

00Q5 

V3Q*0 

33 20 

O') Q 5 
JOD* 


OOipl 

00 1 r, 3 

00 t n 3 

no i p 3 

00 1 n 3 

0 D l 0 3 
0 010 4 

0 0 [ 0 0 

n o i r. s 
o 0 I r ; s 
0 0 1 0 7 
no i i o 
oo i n 

; o o 1 1 1 

00 1 > 2 

Dot 12 
00 ||) 

0 0 ] t 4 . 
00114 

.00115 

0 0 J I s 
OOl 1 ? 
00121 
00121 

0 D 1 2 I 
.0 0 1 ? 2 

CO 1 2 3 
0 0 t ’ 1 
00123 

0 0 1 2 i 
0 0 1 2 3 
0 0)23 

0 0 1 2 S 

0 0 12 ’ 

00 1 2 7 

_ a a i 3 j 

’ 00131 

_n 0.1 3.2 l 

00131 
0 0 13 ' 
0013 * 

00 1 1 * 
n 0 1 3 i 
non 


dTb07* PB 
0000*7 pha. S £L. 
00 0 002 p T 

JQ0Q.?4 1 RI D 

0 0 0 2 n 'i iiX 
.0 OOOpV 5TR..__ 
0 00 305 T 3 6 n 
ro 0 2 /, 2 YE.SRL 
0 0 0 0 0 2 2 M 


00 I 5 
. 00 . 0 44 
0 0 1 5 
0 0 07 . 


On t 3 
_Q 0 Q 6 
00 1 5 
0 0 I 5. 
00 > □ 


R 000o* H 
. R_J3O0 0 7_5 
r ooooi6 

QOJJJJ A. 

C OOOrjOo 

oooooo. 
g pnooi 7 
L 00 On 25 
0002 2 *> 


pCPL 

P N_ 

pslosh 

_R 5.N 


SF.I G 
SUPEP-K 

Y esmt X 

.YESRLP 

ZMAG 


ODOM 000025 

_£ 020 . r ooaaoo . 
ooo* oaoi S2 

DOM.. C—.J300 0DQ- 

0015 R OOOODO 

0 0 1 u 000000. 

000*1 L 000 1 00 
....0015 L nOCJQ? 6 

oolf? c oooooo 


PCT 

P H I 

P5YM 

.R.OC.I 

STAGE 

- S V . - 

T £ S n Y Q 

YF. 5 5RL- 
ZPOLE 


0015 
.00 1 5 
OD 1 5 
. JO 0 0-7- 
OOpH 
0020 
00 1 5 
.00 1 5 
000 6 


R OODOI5 
r pOOO 1 3. 
R 000012 

p 00.2.2 6.. 

l oaaioi 
... 0 000 0 6 
L 000024 
l ri D 00 2 1 

oooaol 


P F AC 

PNOM 

P V A R 
RRD 

stnord 

S 3& 0 ... 

y espch 
yessrp. 
ZT 


aao5 

.0005 
0004 
.. 0 D 0 7- 
000 “ 
.0006 
□ 0 J 5 
UOOA 
0 0 D 6 


R OOOOOO 
R OOOODl 
r 000077 

DOQOOO 

0000 1 3 
000003 
L 000020 
L OU0070 
000005 



I ♦ 

.7 • 

3 * 

4 • 

5 • 

f>* - 

7 • 

„P • 

9 • 

in* - 

1 l • 

1 2* 

1 3* 

.1 4 4 

1 5* 

1 6 * 
17* 

1 *• 

1 Q • 
.20* .... 

2 1 * 
22* . 

23 • 

2 4 * 

25* 

2 6 • 

27* 

25* 

2 9* 

3n« 

3 1 • 

.3 ■» *.. 
3 3* 

3 4* 

3 5 * 

3 * * 

3 7* 
__3 4 

39* 

4 0* 

4 t * 
47 « 

4 3 • 

4 4 • 


SUpRO U TIME reset 

_ (;P m wQn/ jC.EE p 2J- ..hB-L-A H K-i4JKF._Ll.JL, H b L*-*-H « E Y-» h£ S.TX, H HA-TK+HG £ N E>HR-A* * 

1 H RET4,HSTAN,MNEw,HNY'5U*HROOTiHMOLU*HSlC»HS2,HS‘t0» 

2. m° »WK »H*ST i|lP L US *HOOT *HST AR ,'HlnC »HOEC *HC» »HcCi*» - 

3 HATTiHRATEtHAcC .HFPO .HFPN» H FPQN»HFGO»HFGN,HFPOO* 

.4 - hMOmI- - 

OOjBLE PRECISION HnLANK.DHFiLT . , , v . . ,. nl 

_ ...c o t nO ti/. K EX?- 3-/-.- NF.J.,.^T.R. U.nJL ( .5.Tf I l-H-U P-C T-LLQ1-* W-I-n-E-I O-U-HA XU-Q), DP~ { -1 OJ.., 

1 pNiPB»Pi80*TEi5NyQ. STNORD 

R E A L M 1 N i *; A X - 

LOG 1 CAE yESMyO* STNORD 

C 0 .v. N 0 N / K C E P H / pGtpu» p PLT * N G a I M » c, A I N ( 5 0 J »NpHASEtPHA5E<S0l * G 5 yM * 

l p5YM,NRLP R »NGRtlO>iDoU0 5 *H;x(loltBY t<, »IO)»YESRL 

— L „o $4 c a w y-E-sb l ■ ■ ■ ' _ — ■; — ” ~ 

G 0 m M 0 rg 7 ke E p 5 / SOPERK*zT *ZM*TD»NzT »zTvAL ( 5Ql , iThz t »YESzOH»bOTH» 

_.l ..n........ m (J 0 j f Y • G P R I N T - - ■ - 

LOpICAL YESzOHiBOTH.HoOIFviGpRINT 

CDv.MON 7 KFFp7/ rRn ( 75 > , R ! N I 7 5 5 iRcO f 75 > » R I 0 t 7 5 ) *FNPOL l 76 ) , 

I pOPDL * 7 6) iNOGm»nOgO iNNCOEF *NDCCEF »NZn »NZq 

C.0::«0.li /.Xr rPSV- -Z. p O.Le t 7S 1 ., IS 7 5 NzP O.LE 

COUPLE* ZPOl.E „ , t 

C 0 u M 0 N 7 K E E P 7. 7 — R C Q T l 7 5 ) , E A ( 7 5 J .» N F I G » N A-. MR * N U 7-5 ) , K 0 t 7 5 ..._ 

COMPLEX RODT.EA , „ . . . n 

COiiMOl^KEEP 1 C / il D e g i NEq » ME i n c°F * 1 R ! t 000 > » JC ( 1 OOO > t NO I 1 00 0 ) , 

1 LE‘no0J,L0CP0Ll6 f! ,6[)) t EV { 15Ool 

,C o .V. Hf Vi/KFF P-U./.SI..U-U 0 QS. Ui4 Ls.U-Qn.Pl dS 0 sUl O.QX+N.S E.I G i..S.C-L» JJ 

complex sEir, 

^ 0 j. 0 n 7 K E E P .1 ^ 7 5 v * 1 0 D ^ , L 0 ,C i/ 1 1 0 0 1 « M V » N E V » N C 0 F V 

COMMON 7 <EEp 16/sT AGE* <OPE»NN cLPLi NRpOlE* UK ZERO ♦NxBtMxN.NxR.- 

1 _ 1 OPr ,'j , JOPRN *FvAR ,P N Of! , PC p L , PF^c » PSLOSH , -• 

2 ” yES'-Tx»yE5RAA,YES9RP»0EGUG»lFlT*yESPCH*y*ESRlP* 

3 Y.ESS.vL.* NOMM.A l .not y£T_ — 

L 0 g 1 C A l Y ES'.'T.K»Y E SRAA,YESt4p*DEU!jG*LFLT*YESpCH*YESRLP* 

1 _ ... yESSRL *UOi‘.ffAL ,MQ TyET 

C0,.«I0U/KFEJ»19/LGAIN.LPMA5E» L P0LES »lsoRL*l z eros 
...LOGICAL. . LGMNttpHAS€< L pOLFS*L5D.RL*LzEROS. 

C0mM0n 7 KFEp 20 7 ESTZ{75) tNEsTz 

cQmp lf-X. e5jlz 


79750 

.7.9.7.643 

797 7q 

.797 8 0 — 

7 9 7 9 o 
. 7 9 80 q ■ 

_7..9B.2o_ 
7 9 8 3 q 

798 4q 

7 9 8 5g 
79860 - 
7 9 8 7 o 

—7 9 8 8 o — 

7 9 9 9 q 

...7990o — 
7992 q 
.79930 
7 9 9 4 q 
.7 9.9 6 0 __ 


.7,9.9 9 0 — 

8 0 0 2 o 

8 0 0 3 o 
__e q.q4.q__ 
8 0q5q 

.8006o.. 
80q7 0 
8 OO 80 
80n9 0 
...80100 - 
80 1 1 0 
. 801 2 0 


L VI M r ^ j. a h — 

common 7 pLT/ pNl »*!1 CPUT, NP » !Sw» ICT,T36D,S36o*OIFI iDIF2»!Ck 
LOcIjCAL NlcPLT .... . • • . - - ' 

RESET NlcriOLS PLOT 0|>Tl n N 


oooooa 

oooooa. .. 
OOOOOO 
.. OOOOOO 
OOOOOO 

oooooo 

oooooa 

— oooooo - 

OOOOOO 

onoooo 
onouoo 
. onDOaa 
ooouao 
— 000 U 00 -- 
oooooo 
■ oooooo 

OOOOOO 

onoooo 

oooooo 

-- OOOOOO--- 

onoooo 

— onoooo 
oooooo 
onoooo 
oooooo 

a do on 0 .. 

oooooo 
oooooo 
oooooo 
□nOOOO 
oooooo 
__..OQOUOO - 
OOOOOO 
OOOOOO 

onoooo 

oooooo 

oooooo 

CQGOOQ- 

000000 

onoooo 

oooooo 

UP0UQO 

onoooo 

OOQ'JOO 



SSI -'9 



RESET 2 - r? TRANSFORMATION daT a 


N 7 7 a o 

2 p 0 It*!; — m •• 0 ; - 

f i E R T 2 = n 
^OijIFY -a™ .PAI.SE*— 

u 0 T H = .FALSE. 
YE‘S ‘2 0 H — 3 — « r f“~AL'S'fr* — 


RESET fl Y qU 1 5 T DATA 
NF J c 0 
F'B = H»L* 

Rip') b— HP L K- 

Y E 3 N y q » .FALSE* 

5 T ri [) F 0 “ .FAL.SE* — 


pESET ROOT LOCUS DATA 


nc.a l f‘ c n 
npmASe- b n — 
npi.fp c d 

rG • -* — hOL* 

PP * H»LK 


PP L .T. e- HRl.K 

YE^Rt. “ .FALSE. 
YCs r <UP * .FALSE 


RESET USFP ESTIMATES 
N A » 0 


aESEJ— G E-M E R.A-t— R^A- R A H E. Y-g-W-S- 


K 0 r»E- •» — n_ - 

nrcepl 0 n 

. U R p 0 L F * n 

N R 2 E F 0 s n 
j Op F n . 

' P 

n . . 
0 - — 


com 

9 1 • 

jDpEF *= 

PC ] 7 1 

. 9?« 

u e j c, = 

00 17? 

93* 

UK * 0 

c o 1 7 :> . - 

9m* 

NDfG °~ 

00 17* 

95* 

NEO * 0 

o n 1 7 A 

9 A * 

... Mr n f> 

JU | « - - 1 — 

00 1 7f 

97* 

N C 0 F s 

00 177 

. 9 8 • 

ndgm = 

0 0 2 n ( 

99* 

Uf'f.D = 

C 0 ? r ! . 

Ton* 

M.f.OEF 

oo ?o: 

10 1 * 

nPrOEF 


• 8-01 3 q DO 0 0 DO 

— ; — -« 0 i**-g - oti-cooa 

80 lSo oooooo 

___ bG * 4-0 -O-CHD 000 

eoi 7 0 onoooi 

801 6 o onooo 2 

000003 

601 9 0 QOOUnH 

6020 o 000005 

— 002 1 o 0000 0 6 - 

6 0 2 2 o 00 0 006 

6 0 2 3 (j - 0 0 0 0 0 4 

« 0 ? 4 q 000006 

BOJSo 000006 

8 0 2 6 y OOOOnT 

— 602*0 0000 1 0 

00200 0000 I 1 

DQ 2 V y •••• U 0 U 01 Z 

PO 3 0 g 0000 13 

- eo 3 io ■ onuniH 

00 3 2 o 0000 1 4 

803 3 o- 0000 1 4 - 

8 0 3 H o 00001 H 

003&0 0000 1 4 

00 3 6 (j 000013 

: — : — eo 37 0 - cm oo 1 6 

60300 000017 

— 8 1 ) 3 9 y 000020 - 

8 06 0 0 00002 1 

906 1 Q -000022 

6062 o 000023 

6 06 3 q — 000 0 28 - 

6 0 6 6 g 000029 

8 0 6 3 q 0000 29 - 

6 0 6 6 g 000029 

O 06? 0 0 OU 0 2 4 

■60600 000023 

6 0 6 ? Q 000 U 2 S 

&O 6 C 0 000023 

______ 80310 000023 

8 05 2 g 000023 

8053 o 000026 

8 0 3 6 g O 00 U 27 

„ r. 8 0 SSq 000030 

8 i) 56 o 00003 1 

6 o 3 ?g 0 0 Ci u 3 2 

8 0 S 8 o 0 CDU 33 

8059 q - 000034 

80600 000033 

— 8 0 & 1 g — 000036 

8 Q 6 2 g 000037 

8 0 6 3 g OD 0040 

' 8 0 6 6 g 0 0 0 0 6 I 

B C 6 3 o ■ • 0 0 0 0 4 2 

8 0 4 6 g 0000 4 3 

.. ,. 0 04 7 q 0 000 4 4 

8040,0 000045 



091-9 


00203 
00200- - 
0020? 

10^^ 

- 10 3*. 

1 CH* 

NZm *' C 

N Z{> - *■ -D- 

NV « 0 

0020? 

106* 

NCoFV b 

. 0021 1- ■ - 

1 07 *._ 

N E l C. 7 T— 

0021 1 

1 08* 

P 1 1 Q M a 

.0021/ 

. 1C9* 

.PCpL.s 

o o 2 1 :« 

110* 

PFK = 

.. 0021 t . _ 

.--111*. 

p.S t ..OSH_ 

0021 ‘ 

1 12* 

P V A « «= 

. D 0 2 U 

.1 t 3* . 

s TaGE = 

002 17 

11 H* 

YESMT X 

0 0 2 2 C 

.. 110* 

YEs rp -<V - 

0022 1 

1 1 6 * 

LFlT = 

nr) 2 2 7 

117* 

S R t_ 

no 2 ?: 

1 18* 

t E s S p P 

0022*- 

l l 9« 

.... .. 0EyU6 “ 

00 22S 

1 2 0 * 

GPoPT 

00 2 2 < 

- 1 2 1 * 

lsukl * 

002 27 

1 ? 2 * 

L G A I Fi » 

C 0 7 If 

12 3*.. 

l Ppi *.£ - 

0 0 2 3 1 

1 ?H • 

lpclEs 

00232 . 

125* 

normal 

002 3? 

1 26* 

L?E r 05 

0 0 2 3 * 

1 27* 

.... - . n 0 t Y E T 

002 3? 

1 2C * 

hETOPN 

0 0 2 3 6 - 

.... .12 9*. 

-E-Nr.. 


-♦false. 
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ARpANfjE EIGENVALUES IN ORdEr OF DECREASING ABSOLUTE VALUE 


8 2 3 0 0 
8239 0 
8 2 H Uq 
-8 2 H 1 0- 
B2r2 0 
.82h3 0 


DEL 15 
. - 00 10 
ER t c 

£1 -J.-.T 

I f 

. ... IF 


»onnj 

N =* 1 , UP 1 G • 

H P T P t 2 * N - 1 > 
R.P 1 P.1.2-.*-.-! 1 — 
t A n 5 f F R 1 J ®LT. 
1 A r, S t E l 1 3 . * L T 


n EL > ER l = n 
DEL J F-I l 3 n 
ROpT f U > = C'l°Lx < Eu 1 , E I 1 1 

L 0 c i 1 - 1 ) 3 II 

AMplN) * c A i.' s t R Cl 0 T ( N M 


82 m 5 q 


.uitiai! 

0 0 2 0 8 

A 4 * 


IF < Of: I G ,EQ . 1 3 GO to 12 

0 0 2 0 *' . . 

8 5*. 

_ . ... 

1 nEmU a fir. i &. - . l — 

D D 2 n 7 

86 * 


DO 11 N 3 1 , l ! E N 0 

002 12 . 

B 7 • 

— 

Pt. * “J + 1 • - 

n 02l 3 

BA • 


DO 11 M 3 M 1 , N t: I G 

03 2 1 ••• 

/)9« 


IF < A.n.P { n i » lE ?. a p {.m J 1. .. G 0_ 

00 2? 



C At L XC Jr, l LPC f n 1 ,LOC ( N 3 3 

° J 7 2 ' 

V 1 * 


.. . . C A i L xCUG ( A’!P 1 rl • , AMP 1 U 3 ‘ 

0 3 2 " 

9 ? • 


5 1 CO-:T I DUE 

nr)22 f - 

9 3® 

..... 

12 CONTINUE ' 

0 0 2 2 * ■ 

9 H ♦ 

c 


0D22'. 

95* 

c 

PR l.N 7 OU.TJ? Ul Q.A.L6 

00225 

96* 

c 


0 0 2 2 8. 

. .9 7* 


DO 30 .N ** l , f ; E I G 

00 7 3 1 

7 a * 


L S L 0‘C t n 3 

n C 7 3 3 

49 • 


E 4 a K P 1 f - < 2 * !. - l 3 

0 0 2 3 3 

Too* 


F I = R P I o f 7. * L * 


82510 
8252q.. 
8 2 5 3 o 

8 25 80-. 
8255 a 
.8 25*0. 
8 2 5 7 o 

8 25 8 o 

8 2 5 9 q 
82600 
826 1 Q 
..8 26 20- 
8 2 63 o 
.8268 a . 
8 2 6 5 o 
* 7 6 * 0 
0 2 4 7 a 


0<CH3 ; O2^ 

000025 

OQ0025 

OflD0 2S- 

000025 
-- 0000 2 5 
0000 8 8 
.. 0000 8 8 
000088 
-.000054 
000058 
.... 000058. 
000058 
0 00058 
00005H 
_0000&*. 
000066 
-- Q 00 0 6 6 
00006* 
onnU66 
00006* 
— OD 00 7 3 
Oonu 7 3 
OOD073 
Un007 3 
000073 
000073 
— 0 00 0 7 3 
000073 
000073 
000073 

00010 t 
000 1 0 1 
■000103. 

000 105 

000113 

000 l 2 1 
000128 
000 126 
-0001 36 
000 1 3* 
000 1 82 
000 1 85 
000 1 5 l 
000 158 
000160 
000168 
OOU 178 
00021 1 
00021 1 
00021 1 
-0002.1 J 
00021 1 
0002 1 1 
000220 
0 □ U 2 2 3 
000225 



m-9 


101 

— 10 2* 

103* 

JC«* 

*o ! agnostic* 

_ ios* 


i u r » * 

»!', 1 A N 0 S T f C-- 
109* 


IF ^ L P H A 5 F ) f,0 To ?3 
FD A MP * n « 0 

D ec— 

ThE TfsT for EquA L !T y 0 ET»EEn hOM“lNTF G ERS MAy NOT BE nEANlNgFuL* 

j F — if p*ri *.U • D_.*.ANf> E Q * 0 .-0 0 --TO • 2 1- 

T H f T A * »EPJ 


del 

-4T+E-— -T-F,5 

IF l 

y E , = 

20 COhT 
f M a A 

F D A II 
~?~1 — C OH'T 
n R 1 T 

2 2 — F O f? rl 

sn t 
? 3 C 0 “ T 
t*R] T 
-30— cOrrF 


= o • n 

•I — F-0 p — 

ThETA . 
- T E M P t 
I NUF 

e 5 * T “ F 

P s FN«S 

j.uue — 

E ( 6 i 2 7 
M { l X ♦ 

0 3 n 

1 *>UE 

t j 6 * 7? 
•I mUE- — 


1 1 A — 0 £ T*F E-N— •• Ofl “-!~N-T-E G E f?S — H Ary — MOT — frE — H-E-AM~I~N g F y L ~ 

FO.O.O < ft H 0 • TEMP,EQ*C.O) GO To 2[j 

GO r T I ThetA b *2 - + Tfhp**2 } — -■■■> 

TA »/< ZT-P! 2) ■ - ■ - ' ~ 

ORT ( 1 •0-r ) EL**2l 

) N,L,Kn(UtNl(Lj.ER,EI,AMPtN>,DF: L ,FN»FDAMp 

] f l i 3 l p£ 25 « 7 * E 1 R , 7 j p p F l 6 * 5 * 3 f | 3**5 1 - — — — • ■ — 


» NiL’KD^L* »ni * l * , E R > F 1 


-CA l CUL aT£ - a Nr»--pR 1 NT- LEADING and LAST cOEFF-Ic ICNTS 

IF I NnHN A l • A N |) • * NO T • lGAIn *AmO* • NO T • L PHASE I RFTURN 


26* 

2 7* 


7 = 

™ — £-A L'l 

cn ! 

z * 

C AlI 

C A Ll 

ri C [ . ! 
< M » t 

IF < 

" 1 

3* fOi; 
-i’LF 
2’la 
6 o~ 

3’ COM 

* R j ' 

10 FOR I 

UFp 

*♦1 CO 11 ' 

p r , I 

EMn 


0. ) 

> 

>»0.0> — 

' A c. ( 2 *FSP»HSP) 

• < 7 ,PSF ,NSf 1- 

.u S P 


. EP.rj) ,ANn” <NCN.E'i,DI 1 GO TO 39 

t A r. I C tl i N C • C 0 ♦ NC 0 - - ; 

>< / ) , ?0 X ' ’CHARACTER I sTlc*/2nx » ’POLYNOMIAL 
3 c o E F F I-C 1 r M T * » I o E l 5 . 7 ,£1B.7,5 x»I 5//20X» 
3rFFlClFMT»,lPEl5.7. f rlR,7,5xtl5> 

CN »Cn - -- 

t 7 f/>. 20*. ^CHARACTERISTIC* ^nx.’POLY NON IA 
JT* 1PE I 5 * 7 , .{M.8.7//20 x » * l A S T -COEFFICIENT *-2 


*/20x. 


L*/20 X . 
E-l B .7 


’leading Co 


-0269 o - 
8 2 7 0 Q 
-0-27-1-0- 

-8 2 7 2n- 

fi 2 7 3 0 

82 7A 0 
82 7 5 o 

0276o 

8 2 7 7 q - 
8276 0 

82790- 
8280q 
— 0 2-0 1 o~ 
0 2020 
8 2 8 3g 
82BH0 
8 2 0 S o 
8 2 8 6 0 
-0 2 fi 7 o- 
82800 
8 2 89 o 


029 2 0 

8299 0 
■ 82950 
8 2 9 6 o 
-8 2 9 7 o- 
62900 

8 29 9 q 

63000 
.030.10 
B3q2o 
-8 3 3 3q- 
83000 
- 8 3 0 5 o 
8 3(J 6 o 
.8 3n 7 o 
8 3 o 6 o 

-6 3 0 9 q- 
8 3 1 Oq 


END OF COM p I L-A.T. 1 ON i 


2 CJlAGNOSJ LC-Sj- 


i’FOSiUs^ r * ER*F*RO0TER 
. . _ F 0 R.UElK-a 5 / 2 l/ 7 H- 0 R;t* 7 Jl.l. i-2 1 3 y . 


5 ( i 8 R 0 u T I -J E ROOTER EMtRY P 0 ( m T 00g32? 


storage 1 j s z o : c 0 0 e u } . p rj 0 3 ? 6 0 a r a < 0 > n n no * 2 } $ l a n k_..c 0 mmon l?.L. Q an 0 . 0 . 0 .. 

r; 0 h ho n p l Q c ^5: i 

('003 . KEEP 1 . .. OPQ. 02,6 . 

OOOH KEEP9 000705 

C, 0 0 5 «EEP1A 000031 — ....... . 

f DO A CR0 03 rj | <f, 1 1 5 


F >' T£ R M ft 1. R E F F r F ! j r E s l 3 LjD.CJ?j fJ fi H EJ - 

CD 0,7 E 5 T M a T . .. . ..... . ___ 

M) 10 START 

... -L'JU _ . DEC I OE 

0 0 12 A & M M 

r.O 1 9 SOL Vp 

10 IS SAVE ... — - - ■— 

(OJA N D 0 S 

00 17 ... fil02£._l ; 

r020 HERR 3 t 

rp 

^ «?TORA r 'r ASSIGNMENT. tPlnC*. TYPEj. .RF..LAT.I VE LOC A T I ON » N AM E > - 

r a 0 1 0 CI n 0 n 6 j g 1 DO Q 5 OO Pd I * .2 01 Q 0 0.J DjO 0 


l < 0 0 1 

HO'l 1 22 

**CL 

ngn 1 


OPD 1 34 

SOL 

0001 DGOl b U 

*n l 

(•000 

0 0 n 0 2 7 

*^2p 

a 000 


.aooo.i. !.. 

An 3 p 

. n ci 0 1 coos** 

* 1 j.. — 

coo 1 

00^253 

7S L - 

000 \ 


one 2 1 1 

POL 

nooi aoo^o** 

9 Gl 

VO 1 3 

q oonooo 

COAFiV 

.. OUOP 

L 

Q 1 * 1 1 2 

CONj . ... — 

00 UA c. oaouoo 

-CU 

gno* 

R 01*079 

E 

0 00 9 

C 

000226 

EA 

0000 r ooooni 

El 

rco*. 

,C_0 1*0'1. U - 

F.P R.2 

OJJD *_ 

r 

_Q 

.FJ? 0 

_aoa*..jC_-ni *o s Q- 

-F R-l 

(•000 

OnooS 1 * 

3 *! J P 5 

0005 


0 0 0 0 to 

I OPEN . 

noo5 nooo 1 1 

JOPtN 

0 0 0 0 

L OOOOOO 

LETr,0 

onu 5. 

-U 

ODD O. 2 . 3. 

l flt 

..Q0U3..L . oaooou 

M a x X-T 

C 0 0 3 

000023 

:1 X E S T 

DOG 3 


0 0 0 0 u ? 

M X F R M 

0003 000003 

M X M 5 M 

( 0 0 3 

0001125 

HXNCV . ... 

... 00 0 3 


Qnr.nO* 

M X N E . 

000 3 00 00 0*7 

tlXI.Eg... 

r Oo 3 

0000 1 2 

1 1 X ■’ 1 P M 

00 0 3 


0 n 0 n 1 3 

mX'-IPP 

0003 OCOOH 

M X M Q P T 

S fig 3 

n/ioo 1 7 

( 1 v : ; T f 1 

Ony3 


L'oUl,?') 

11 WV 

_Dooi.. OQ03 2L 

Jl X xix — 

n 0 0 A 

f r, i * 1 n 2 

OCT 

0 OU H 

I 

non *> 5 h 

ME 1 G 

con* I n 1 * 1 0 7 

N E S r 

f HqA 

0 1 * 1 on 

OFp 2 

ono'i 


□ p(l <H 5 7 

.M I 

n rj n A .. I_. G 1 * 1 0 1 

Niter ... 

[•no5 

L 000030 

NOT Y ET 

onoH 

I 

D ( ; 0 H * 

NR 

0005 000002 

Nr.’C.LPL 

t-0as 

onooa ** 

II R 2 F R 0 

ono* 

I. 

016(05 

nstarl 

0 ou * i . 0 1 * 1 0 * 

. N T j M E 

nooS 

oooon* 

NX N 

0005 


0 0 0 D 0 7 

NX« 

0005 oouo i m 

PCpL 

COD* 

^ 0 1 * 0 5 *i 

PRO 

0 0 0 * 

r n ! A n 5 * 

pR 1 

non a r r 1 * 0*0 

_P H.2 

! 0 0 * 

L n 1 6 \ 1 H 

PF &cEL 

nno* 

L 

016(11 

rf.strt 

n 0 u " c 0 0 0 [i 0 0 

ROOT 

CUD* 

C n i A-JAA 

u ? 

nno* 

□ 


p ?!? I 

non* c n J *0 7U 

R 3 

n 0 0 * 

q o 1 AH 7 •« 

u 

001)5 

t 

unfi.3 1 7 

Y r 5 M T X 

no 0 5 (. r,0Uu7 4 

Y F 5 P C H 

coos 

^ P:1 00 25 

Y F. S S R u 

onus 

l 

n r' u n 2 1 

YESSRp 





.OHO 1 . OD 0 0 OQ-l .0.0.0 1 0 * , - .3 0 L 

0000 goaooR *qof 0000 000022 *nif 

0001 COO 1 *?l 0001. - 0 0 0 20 3 7q l 

000* L OlMI3 AUTO ’ 000* C 01*072 8 

00q5 l .00UD22 . DEBUG 0006 L 0 1*1 I 0 DONE 

000 * c 01 * 0^0 fpro odd* c 01*092 fpri 

00 0-6— c— 0-1 * 0 2 ...p-R 2 U000— 1--000003 I - 

DOOM COOS72 KO 00[]5 ODUQOl KOOE 

0 0 0 3 000001 MXEIG 000 3 . 0GGG29 Mx E I G T • • - - 

OGO 3 0000 0 M mXNCOF U003 000005 MXNCT 

... GUO 3 gOOijln MXNF1 ... 0003 0 0 0011 HXNG 

0 00 3 gOU 0 1 5 NXNSm 0003 OOOOl* Mx^sP 

QUO 3 sjOUG22._MXPO.L_y 0Q09_.Q00 hS5 NA . 

000* pi 6 0 7 6 NFpO 00Q6 01*077 nFp! 

... 000*. J £i5 610*t NKODE .... . 0 OU 5 p 000027 NOMIJAL 

000* I 01*103 NREG 0005 OUOD 0 3 NRpoLE ' 

_..OaoO 1 CQ0U02 NTR 00D5 000005 Nxq ._ .. . 

D DO 5 gOOUlS pF AC 0005 00001 3 PNOM 

0 00.5 dOOO 1 *_PSJLJ2Sii .0005 POQQ 1 2. P.Y Aft 

ono* c 0 1 * 0 * 2 rO 00 0 A c Gl*!)* 1 * Rl 

00(1* ft 0 1 * 0 7 0 r3rI 0005 000000 STaqE 

OOG 5 L. nOOO^O' yESRAr Olios t 000025 yESHLP 



C- 169 


0 0 | O 1 


00103 

2- 

- 0 0n3- 

--- 3* ---- 

0 o i n 3 

4 • 

nr) j nn 

9 • 

0 D l O'. 


^ 0 1 n t- 

7 * 

on 1 or- 

P ♦ 


D 0 t 0 i-. 

G 0 I n / 

00 1 0 7- 
DO l f)7 
00 1 
00 1 
00 1 
00 1 
no i 
00 ! 

001 
CD 1 
00 1 
no i 
00 1 
00 1 
00 t 

np i 
no i 
no i ?■ 
.no i ? 

00 12-' 
0 0 12 0 
CO) 7“ 
nc i ?'* 
o n 1 ? k 

0 0 3 2'. 
0 0 12" 
.00120 
P 0 1 7 '■ 

0 0 12V 

001 Of. 
-DO 1 Ill- 

OO 1 3 2 
.0013.! 

00 13'' 

001 3 '» 
GO 1 3 r - 
0 Q 1 3 5 


JO* 

.1 l .ft — 

l 2 * 

I 3 * - 
is# 
IB* ... 
1 A* 
17* 

1 R* 

1 9* 
?!)• 

?. 1 • 

2 2 * 

-2 3 * — 

2 4 * 

? 5 • ~ 
2 A* 

27 * 

2 0 * 
_2 9. * „ 
30 • 

3 1 
32* 
33* 
3'' * 

-3S-._ 
3A* 
37 *. 

3 4 * 

3 9 • 

M D • 
-4 1 

M 2 ft 

43 • 
HI* 

H B • 

H A » 
..*17 *— 


— SfttROuT [ NF- ROOTER -- - 

COrMONf/KTEPl/ mAx | T ,HX El G , M * FR m . M X *1 BM * M XN C Or »H XNC T . M.XIJE » M XNEQ i 

~| _ *XNf 1-jMxNG ,MA*|PH » ,j :XN!»p ,HX N^pT ,^XNSM-,-MXNSp j MxNt«T 

2 M X N v » K X N Z T * H X p 0 L Y * M X E 5 T »MxE IGT » M x N C v 

— CO v flCV M/ t < <5~ i U A i H'fR— » fH vKij-W 5 ) 

COMPLEX KOOT.EA 

. — c C H M o M / k; r F p 1 i>/ s T A g, F t K 0 0 F » N N C L P L • N I? p O L E * M H £ E y O * N x. R » N x N t N x R » • 

lOpFf!,JOPP r| ,p v AR»prinM,pCPL«pFAc»f 5 SLOSH* 

— • y £ 5 m r X * yFSHAv ,YESef<P • pE-fl UG * lFL T-* Y ESPCH * Y E-SRfP r 

YFSSRL’ N OHfiAL,HoTYET 

r -£ Sp-T-X'-* Y'F YF. L S-^Mp»D-Ee-ifG-*'trF-L'^‘ - *T‘ E ' s P'C-H-t fF-S RtlP*i 

1 Y F 5 S R L * WOM li AL , M 0 T w E T 

~C0.,;M0uXFP!.;f>3/- cU(A0t <, 0>»Fplin,FPPliFPR2*FKC»*FR 1 ,£R2,pRU,pHl * p??2 

1 rU , r i , R2 » R 3 ,u , u , NFPO ♦ NFP 5 • HFP 2 , H I TEH * NC T » NREG i NK 

2 hS7 a w T»NTIME»nEsT ,DONE*RESTkT »cON.,i*AuTO»rEgsEl - 

COMPLEX C0*FpR0,FfRl*FPR2 t FRn»FPl»FR2»f>RD,PRl*PH2, 

■R C* i P i i R 2 » P 3 , U-j U — - 


1 
3 


OOE, 


8495q 

8*»?6o 

-8497 0 

849Bc 

-8 4-9-9 (j- 

.85020- 
fl 5 0 3 q 
.8 B ij H o 
8S0&O 
-8 S o 6 o- 
0Bo 2 0 
-8Bp8o 
85u?o 

- 8 B 1 Qq- 


C 

c 

C • ft * * 

c 


,P3 

L Or; 1 CAL fi ONE . R E S T P T . CftNj , AU T 0 , R E G SEl 

•LOGICAL L^TgO 

P I mEL'S I O* 1 F < 2 ) 

■OlnENsI Op h2« li 2 5 »P3 p J 1 2 1 

EQUIVALENCE (R2 i p2R|UIJ'(R3ip3R|I1)I 

■*€-^u+V‘A-LE-M'C4r rU 1 


-85 1^0- 

BB 1 3q 
8SI H 0 


initialize for rootjnq roii t ine 


_c 

c 

. tlltt 

c 

.. . — t.u 


El * 1 ♦ F- 8 

~WRf 

N E S T ° 0 

..N 1 1 » o — 

COr:> jB .FALSE* 


-cOm-T I nue.. 

hC T=0 

- N T h 3 0 - 

N I T E 9 a 0 
..nK o 0.£._ s— fl- 

mb t ap t =o 

N T r M £ a 0 


. F .^vR... N.£. X-T — R-oOT- 


REgSFl 3 ‘FALSE* 
.. REs-TP T 3 .r AUBE •- 


CO 1 v. 

4 il * 

DO 1 3 ; > 

. . 4 9ft 

03 13- 

50 ♦ 

.. D 0 l 3/ 

B I • 

00 1 4 '1 1 

52* 

32 | 4 £.! 

5 7 * 

0 0 1 4 < 

54* 

0014. 

55* 

0 0 14'. 

5* • 


C 

-C. 

c • » * * < 

c ... 
20 


ENTRY point fog A UZ-s STA'^T 


COwTI NUE 

• LE T Cf)*ftF-ALSEft— : 

IF (RFSTRT .AMD. NcTftEQ*0) LcTgO“.TrijE» 

-NC-T' s -0 

NTK=NTR*‘’l ter 

'.■STAPT s, JSTART + 1 


-85+^0- 
&B 1 8 0 
&S19U 

8 S 2 Do 
8 B 2 1 o - 

-BS 2-3y -- 
8B?H 0 
QB2 Sq. 
8 5 2 B q 
8&27 0 
8 5 2 8 q 
-fi-S2?o- 
8S 3 u q 
8 5 3 10 

8532o 
■ 8 5 33 o 
853^0 
-8535 Q- 
8 5 3 6 o 
.. B S 3 7 o _ 
85300 
• 8 S 3^ o 
8 5 40q 
-8541q_ 
8 5 '! 2 0 
• 8 5 3 0 
OS*hH 0 
-85^Bq 
85 9 & 0 
_85h7 0 . 
85480 
85M9 0 

8B50o 


oooooo 

oooooo 
opoaco 
ooooon 
-anoooo 
oonoon 
onouoo 
oonono 
0 0 d u n 0 
ooooon 
-onnooo 
oooooo 
a no 000 
oooooo 
oooooo 
oooooo 
-oooono 
oooooo 

oooooo 

oooono 

000000 

oooooo 

-aooouo- 

ooouao 

ooooun 

OOOOOO 

oooooo 
oooooo 
■00000 1- 
000002 
000003 
000008 
00000 ^ 
Gnooo ' 4 
000004 
0 00 0 0*' 
OOOOOB 

oonooB 

onoon* 

000007 
- QOOO 1 0 
0000 l I 
0000 1 2 
0 0 0 0 13 
0000 1 4 
OOOO 1 H 
-000014 

QOOO 1 B 

onoa l M 

DOUU l 6 

■ onoo i <• 
0000 1 6 
—000028 
000027 
000032 

000034 



OO'Iifli'*. 

OQiJl 

. IJ’1 jj «*> 'h... 
T 1 ® ( ^ » 
?0 \ 5, * 

oo i r. ’ 
oo i 5 * 
no J a » _ 

OG 1 a \ 
DO 1 6' . 
00 I AO 
00 1 6 4 
00 ] 61 
. 3016 L 
0 0 1 A % 
'016 * 
0 0 1 6 > 


3.7»«> 

3.-Ti* 

5.9--* 

&J V. 

M * 
42* 

6 3 * 
A 1 * * 
A3 • 

A A • . 

6 7 * 

6 >3 * 
A 9 * 
70 * 
7 ] • 

7 2V 
7 3* 
74 * 
7"i • 


f F F M'S TART* fj.T * 1 3 7 f= r> TO 90 

C 

.. Cliv** k<Z — AM..X S-U n a-T E— OF- X- *O-0-T 

C 

?S cOf'T ! NOE 

... (F lAHS<r(?n ,LT. 1 . £ - ‘4 1 . £.< 2 > *■ t, . 0 

1 r < 0 E B u Ci > ,i< R 1 T l 1 6 , A o n > (J » U • N 5 T A 0 r . 0 0 N E 

A-T 1 .» O.-ESJLU I-L* S.xjJLB — * 5-X.*lu_!_».2 E.L^S^.^.fiS-T-AR-T-^-I 

15 X , ,r )oNE ' ,L 37 > 

c 

c .. . 

£**••• 


s £ lect and Evaluate fIrst three iterants 


call start 


03 1 A S 

. v 7 A * 

C • • • * 

* . -OETERM 

0 016 * 

77 * 

C 


00 l 6 T . 

70 • 



.-CA+-J QECUXE 

no 1 7 i 

7 <>* 


! F ( 0 0 N E 1 R E 

0 0 1 7 * 

a.o * 

-- ~ 

GO rn .40 . 

0 0 17 » 

A l • 

c 


0 0 17 ? 

P 7 * 

c 

... 

0 017 1 

fi 3 • 

c * » • • 

* solve 


.OETERHINE-SHftHER IO-F.jNO- ANOTHER ROOT... 




00 17 


00 1 7 

:r> 

00 1 7 

: 

0 O 1 7 

'j 

*020 

17 

00 20 


3 D 7 0 


A 3 f -> 


~0r* — 
« 5 * 
86* 
fl 7 * 
fi >1 • 

P 9 * 

9 0 * • 
9 ] • 


ANq POLYNOMIAL FOR NEW ITERANT 


30 CONTINUE 

...... . c A( L . again 

iFtDErfUG) /, R I T E * 6 i A 0 I > RESTpT 
60 1 r On* AT < * * . 1 2X , *RESTST* .LH' L._ 

1 F < R E s T R T > GO TO ?0 


0 Q 2. :1 > 

9 2 * 

C • * 

♦ * • 

0 0 20 3 

93 * 

C 


C 3 2 Q I 

9 H * 


HO \ 

00233 

•diagnostic 

* 

Th£ 

0020 'i. 

?r, * 


— 

0020 S 

96 • 

c 


0 0 20 i 

9 7 * ... _ 

,c „ 


0 0 20 > 

9 8 * 

c •* 

4 • • 

0023 i 

99 * 

c. 


0023 7 

1 OD * • 



302 1 1 

in 1 • ... . — 



J 

032 1 » 

13 2 * 



n 52 1 1 

10 3 * 

c . 


002 1 1 

J ilM • 

c 


DO 2 1 1 

... .IPS* 

C** 

♦ • ♦ 

00211 

1 0 6 * 

c 


.002 1 ? 

_ -.J.o 7 * 


-S-Q— 

OG 2 1 A 

1 0 8 * 



002 13 

-. 139 * 

c 

... _ 

002 ! ? 

110 * 

c 


0 0 2 ! « 

1 1 1 * 

c * * 


30 2 1 > 

112 * 

c 



T.E S T. - F 'J. f; C T 1 . 0 ‘J A L .JtALU£~OF....J T-ERANT- FOR... 2 ErO 


4 0 CONTINUE- - — - - 

Ic* ThE TEST fop EoijAlITy IjETwEEN mON-INTEgERS may not be MEANINGFUL' 

1 £. Id) A 3 V t F.° R 2 1_^N ^_O...OJ_-G-0— 1-0— 3D 


ROOT FOUND 


N K 0 0 E a I 
R 3 = 4 . 2 — ... 
GO TO BO 


CALCULA T.E— N E 1 * — t -TX R A NX 


CAlL solve 


TF ST mE;.- 


655 j q 

■OO 0 S B ? 

— • 

tOflOQfiT 

655 Sg 

000057 

8 5 S 4 g 

.. OOOO 2 7 

8SS5<j 

000037 

. .. 6 S S * 0 

Q00O43 

6557 a 

0 n 0 0 4 6 



000046 

6559 n 

000053 


_OnDU66 


030066 

. ... SS62g 

00 00 6 6 .... 

856 3 0 

000066 

.. -_.es 6 *»o-- • 

000066 

fl 5 6 &o 

00 QU 66 

6.5 6 6 q . . . 

-000066 

B5 6 7 q 

00007 3 

8 5 6 8 0 . .. 

0 0 0 0 7 3 

8 5 6 9 Q 

000073 

8570o - 

000073 

857 1 0 

000073 

8 5 7 2 Q 

-000075 

65 7 3 0 

00007 7 

8 S7 4 0 

0 0 0 10 4 

8 5 7 5 0 

000 104 

..... 8 5 7 6 0 

000 104 

85770 

000104 

fl 9 7 fl g _ - 

OnO 1 0 4 

8 5 7 9 g 

U LJ U * LJ 7 

ODO 106 

6 5 80o 

- 000106 •• 

058 1 0 

00010 7 

6Se2 u . 

ODO 1 l 7 

8583o 

000 11 7 

— . — 6 5 B 4 0 

-000117 ... 

8 5 8 Sq 

000 1 1 7 

858^0 

_ OQG 117 

8 5 3 7 0 

000 1 1 7 

85000 »•• 

000122 


000 12 2.— 

8590o 

000 1 22 

B59 1o- — 

- 000122 . 

B592o 

000 122 

8 59 3 0 .. 

000122 

8 5 9 4 0 

000 1 26 

8 5? 5 o- — 

0 0 0 1 30 — 

B 5 9 6 g 

000132 

. _. 6 5 9 7 0 . 

000132 

e59flo 

000 1 3 2 

6 5 9 9 0 „ _ 

ODO 1 32 

B6Q00 

000 132 

860 1 Q 

0001.3.4 

S 6 0 2q • 

000 1 34 

86o3o - 

000134 

» 660^0 

OOP 134 

660^0 

ODD 134 

6 60 6 0 

000 1 34 


C 




1 1 e p a n t for. Convergence to zero 



• 6-171 


0021 4 
-0021 4 
002 t 9 


. — 00 2 1-4 

M-6*~ 

OD214 

117* 

no 2 I 5 — 

\ 1 9* - 

002 1 7 

j 1 Q. 

— 0021 J - 

-- 120*- 

002 1 7 

1 2 1 * 

0 0 2 1 Z. ._ 

l 22*. 

0 0 2 1 ' 

123* 

. 00221- 

1 2** 

0022 1 

12b* 

002 2 4 

] 26* 

0022 5 

127* 

00 2 3 ) — 

1 2 9 • ■ 

0023 1 

129* 

0023 4 

l 30* 

0023 4 

131* 

0023 4 

13 2* 

0023 1 

133* 

00 2 3 3 

1 34 •- 

00 23 i 

1 35* 

00 2 36 

— 136* 

002 3 5 

137* 

0 0 2 3 » 

- 1 3 A • 

0023 6 

139* 


IF <CDA[4v<R 34 .GT, Ell GO T 0 60 


go°to »o 

,Q* n»». -fE-ST — f-o R — £-OJ*y*f-rG E-W^X — Oy -^ A^ T — -T-ft 0 — 1-^ RA++T ! 

C 

60 -CONTINUE — 

00621=1,2 

1 f U^S « R3R I < *gT* E t 1 -G 0 TO -M- - 

IF < AbS<r 2K1 < 1 1 1 .GT* El* G 0 JO 70 

<V0— T-0-— 6 : 

61 IF i AOS C f r3h I t I > - R2 rI U U/R3RJ U ) J • G T • E J > 

6 2—0 Of.'T-I NOE -- — - — 

c 


C* • • •« 


ROOT FOUND 


NKflOE ° 3 

— GO - TO 00 - — 


TEST ITERATIONS 


00 2 3 i. 
D 0 2 3 7 
00291. 
002^2 
DO 2 *» l 
00 2 *4 2 
•0 0 2 H 2 . 
002* 2 
0 0 2 H I 
n 0 2 * 4 
002*5 
002*4 7 
. 00250.. 
0025 1 
D D 2 5 2 
0D?5 3 
0 0 2 5 '4 


.1 *4 0 * _ 
1 H l * 

I H 2 * . _ 
1 *• 3 • 

1 *4 4 * _.. 
1*5* 

. 1 '4 & * . 

| *4 7 • 

J HS- ... 
1*9* 

I S 0 ^ 
151* 
_1.5 2 •_ 
1 5 3 • 

1 5* • 

1 55* 

1 56* - 


0 0 2 5 5 

l 57* 

1 

0025 5 

1 5 e * 


00261 

159* 

602 | 

..... 00?62 

. 1*0* 

i 

0026 3 

J61* 

75 i 

00 2 6 4 

162* 


0026 5 

1 63* 

1 

p n 2 6 7 

1 6 4 • 


0026 7 

1 6 9 • 

C 

_ . 00267 

1 6 6 * .... . 

c 

00 26/ 

1 67 * 

c 4 * * * * 

0 0 2 6 7 

16 9* 

c 

0027 ) 

1 69 * 



• 70 CONTINUE 

IF (HI TER.lT ..MAX-I-T-I— Gtt -TO -3.0 — 

GO TO 20 

C 

C-* ■.j».*JS 5 A.V-F-- ROO-T — 

C 

9 Q CONTINUE — 

’ # IF<nitEr,nE«I * 0r# L^TGO> Gn TO 7S 

-LETGOt. TRUE-* 

B b 0 . U 1 • B 

y—R 3 — 

NCT“0 

—N-T fi •* N T R 4 MITE R 

N I r E R 3 l 

nKqOF = n 

UO r: E s . FALSE. 

„4F.<.0.EhUG j .„iR-1-TXX6^aC2> 


GO 7 0-25 - 

CONTINUE 

I F (.( REGSPl-I-^ ANo-*JUi-!-TER • G-T..«-25-Li — | cR£g* NRE1G+ l 
Nl TEP“N I TER+NTR 

CAl-L-SAVE ; 


TEST IF All « n 0 T 5 F O U N n 
IF < K E l 5 . L T * >•: R 1 GO TO 10 




0027 2 
00272 
0027 2 
0077 1 
002 ? I 
0 0 2 7 1 
00 27 4 
C D 2 7 *i 

0 0 2 ?/ 

_ 00300 .. 



RETURN 


172* C 

1.7 3 * CAU N 0 T , . c O Hy^S £ A F LCr. . .1 & ... R .E. S-T-AR-X5 

1 7*) * C 

.. l?S* 90 -CONTINUE . 

l 7 * • R | T Z \ t> i ft n 3 > 

1 7 7 • . . AdJ-.F'OpHATL'.J -CAN..r 4 OJ_ c oNvER6E..AFTE.p..JO-. REStAHT5±J- 

| 7 R • RETURN 

l 7 9 • — E-Lii) ~ 


EUD OF compilation: 


1 oIA^moSTICS 



ezL-$ 


SUBROUTINE TUTER 


ENTRY POINT OOOlSZ 


STORAGE- USED; CODE.U -L ...O.oD 1.62 J.. f> A-T A l.Q±. 0n0 0 2L7 5-»L A-NK--cOMMON.t2. .1.-0 00000— ■ 


ccl« h o N_.3L-0.C-X sj 

_. 1003 - KEEP 1 • - 000026 .. 

1 0 Q 4 KEEP2 0000*17 
--OODS • <££0*1 000263- 

1006 < E E P 9 00070S 

— 10Q 7- K E E P l 0 -0 2-1 6 2 0- 

00 1 0 < £ E P 1 6 00003 1 

— lOll - -- K E E P 1 9 OQOOO&- 

)0 l 2 CR 002 003737 


. £j T ERN* l~.R E f E R E.H.C LS —Ut-oCK-t-M-M-EJ- 


ROOTER- 

RLPRNT 
NAOUt — 

N I 025 
-flERKHV— 
NERR3S 


STORAOr.ASSlGN^EN T_.._J. 5 l 0-C S-» - TYPE.i_.RE L-AX.I V E__LO C All a n.«— N A.ME-)-— 


0 000 4 4 

non 00 1 


LUr. 

6 n 2 f 


inoH r) 0 0 000 2 OHKIlT 
•10 0 s OQ'JOnH 6 A 1 •> 

OOOH . .. 03003*5 HATT 

OOOH 000032 HO £c 

_o 0 a y a o o o.ijj—mf.-p o — 

)Oo'** 00003 1 MINE 

. :1 0 n 4 G 0 0 0 15 H N V Q u - - 

J □ 0 44 000012 hr ETA 

. ) D a M • 000020 HS I c — 

JUDO 000016 INjpS 

..1 DO 6 0 0 0 0 7 Z 0 

)0q 7 no 7 6 4 4 lOcpOL 
j 0 0 3 _ 00000') MAxlT 

jOq 3 no mp3 HKt.riM 


00 0.1 aoCLa?- 1 ^ — 1-5- 2 -g 

nno5 0007 12 <jy 

... Q.0U6 f on 0 2 2 6 _f- ft 

0 0 1 2 0 n 0 r, o 2 <;AlNV 

.. OOU'1 n -000 0 OQ .. h pL AN< 


JO t D 


OOOOO 7 !1XNE0-- 

n a o o i h m x n o p t 

-Q00021-. MXU2 
00 0000 NO EG 
0 0 0 1 5 H .'(Gs 
0 0 3 7 7 *♦ • j p r, 
00O-]n2 met 


•'( G R . 

•|PG 

met PL 


noon 
_QO0'l_ 

000*1 0000 05 hkEy 

,._oooa ooao? 3 ho 

000*1 on o c i 7 hROll 1 

.,.000*1-- 0 P 0 o 2 1 -h S 2 

oo in o o a n i o i o p e n 

oriia—} no n r ( 01 _ x n n e 

on 1 1 t_ onOi.iO i t p h ase 
one 3 j on 3o0 1 .r, x c i o . 
n nO 3 on 0 0 0*1 'i X *>’ C 0 F 

.._oou 3 ... noon 1 o. ;*xnf i ..._ 

0 00 3 0000 15 M X N s M 

QO 0 3 000n.Z2... H X P 0 L*- 

0007 QnOo 0 2 n e • 
...00 l 2. 0 0 3 7 3 *} rj G S Y M . . 

nri (j 0 n n 9fl6 6 mphaSE 
...0 0 0 5 .. n >■> 0 1 b 3 jjri. FR 

ooio no on u6 M % n 


onoc 27 hoot 


-DOG . 1 — -000-3-- O-ZrurpO-L — 

0005 000166 00 

00 1 2 .R..00 1 754 C! p 

onu5 oooi s i gsym 

DOOu ...R.-OOOQO'l Hrl-K 

0004 0 0 000 6 HESTt 

_OQ[n 00 0 0 H-F-p-Q-N — 

000. : 1 DOOOO 7 HhaTR 

.000 4 000 0 Z6...HPLUS — 

OOOM 000016 HroOT 

..0 00^ 00 00 2 2 HS 4 S ■— 

0007 00000 H IR 

-0 0 i n_u — non 3 2.3, LF-L-T 

non l nanooi l poles 

0 00 3. . 000 0? 4 M X E 1 0 T- 

0003 000015 Mxf.CT 

.□003 0 0 a o 1 I . * X »■; G — 

0 0 0 3 000016 M x N 5 p 

_0 0 0 6. ,0 0 0 -N.5 S_.AU 

0 00 6 I 000*1 54 N E I G 

.0006 . . 000*157 MI 

Of)!? I 003725 »}pp 

OQl. n n 0 0 U 0 3 ti khOlE 

0 0 1 n 0 0 0 0 0 7 Ny ft 


.0-00-1 OOOO.W— -HOL- 000 I- 

0010 L 000022 DEBUG 0012 

.00 12 R • 00000*1 -ERP 0 00 7 

0 DO H OOOO 37 H A C C 0004 

DOO'i o 0 0 0 3 *1 . .. h C C W 0004 

000*1 0000*13 H FgD 0004 

_0.0 04 GOO 0*1 -l— HFP-N 000*1- 

000*1 00001*1 .HNEA 000*1 

.. OOO** 0 000 3 6 .HRATE 0 004 

0004 000013 HSTAN 0004 

— 0 0 0 4 - -000024. -HX — 0000 

00-07 001754 jc OolO 

_0 0 J-l— t — QO 0000— LG A IN 0007- 

oou L 000003 LSDRL 0r >l 1 

0 Q 0 3 000023 MXEST 0003 

non 3 C0Q025 mxncv 00a3 

,0Go3 000012 .MXNPH 0003 

000 3 qO 00 1 7 MXNTM 0003 

0007- 00UU0 3 -NC0F -0 0 0 7- 

0007 oOOOOl NEQ ■ 000 5 

... 0 a l 0 . L- 0 o 3 0 2 7 N 0 M N A L 0 0 10 

0012 ’ Q03736. N P5YH 0006 

OUlO . c 0 0 0 0 4 NW2ER0 0012 

OOtO n 0 0 0 1 4 PCPL OHIO 


- -0001 1 7 - 
003734 
. 0 1 666H 

000025 
... 000033 

000044 

,-0000 1 0-- 

000046 

... 0000 1 l 
DQ003q 
- 1 - 000000 
0000 1 1 

0 0 56 7 4 . 

L 000004 
000002 
000006 
I 0 0 D 0 l 3 
000020 

0 0 3 7 2 4 

QOOOo 3 
L 000030 
I 000456 
003726 
OQOU 1 5 



moo 5 



PG 


jDo5..p„odODn2 PPL! 

moo* r nonorjii rpip 

00 |2_ Q.0 3. 7 3 n Y ft 

•1010 l 000025 YESPLP 


' 000 s " OOOr 6 ^ PHASE nol? C OOOOOn PHAVAR 

_OOJ.O_— .JD.nao.lA_ PSLOSK 000 5 coal 52 - PSYM~ - 

noo 5 00020c rx ooi? aooooa shift 

on io | nn OQi-1 _y e5 mix 0 o.i c_j — o_a 0 0 ? !_**; s^ch. 

onin u nooo26 yessrl ooin l 000021 yessrp 


9 0 1 0 000013 p N OH 000 5 OOOOOl PP. 

.0010 -00 0 0 12_ P VAR. 000 6 -C- 000000 ROOT 

0010 000000 STAGE 0012 003727 XR 

0 O.U3_4_r)0 0 Q-ZQ-XESltAtt) 0.0 0-&—I 0 0 0 2 6 2_Y E S RL 


. DO 1.QJ1 — 

0 0 1 D 3 

u a i o t_ 

00 10 3 
00103 

001 o ' 

no 1 O-i. 
00 10 " 
DOIT' 
00 ] O'. 

00 1 OA 
0 0 1 0 ( > 
_DQ 1 0? . 
00 1 in 
00111 . 
oon :• 
no 1 1 :• 

0 0113 

001 13. 
00 113 
0 0 113 
0011" 
DO t 1 *■ 
nU! 1' 
OD 1 1 / 


J 


SUBR OUTINE R u TpjLLiJL 


Jl6.6 9.0- DO 0-000. 


2* 
3* . 

H * 

.5*. 

6 * 

7 ♦_ 

? * 

9 V. 

in* 

l l * 

1 ?• 
1 3 

1 4 * 

, 15*. 

16* 

17 * 

1 8* 

1.9 *. 

2n* 

2 1 • 

22* 

2 3* 
2 3 • 

25*. 


COwMON/KEFpl/ |'!AxiT,MxElG.H y FRM,MXflRH»MXNcOFiHxNCT»MXNE»HX N EQ» 

MXNF I . MxtlG »KXmPH »MXNPP ,HXH«PT tMXNSM »H X NSP-» T-M *— 

2 hXNviMXMZT»HXpOLY|MXESTtMX&IG7*MXHCV 

.. . C 0 m M OM/ < T EP 2/- H& U A iQHFIlT^HbLK * H < E Y » HE ST T * hH A T R » H G EN E • HR A ft f 
1 H R £ T A » H S T A N i HNEfl «^>^YnU»PROOT t H •< 0 L L * H 5 1 C »HS2,HS 4 0* 

J2 H 0- » M x-vH-AS T..t.}.tP- L U S » h 0 O-T-t H S-T-A K-* H K<C * H 0 E C-+HC W -» Kc Oft-* 

3 H ATTiHRATE*HA c CtHFPDiHFPN'HFPDM»HFG[)»HFGN,HFPDO» 

fl . hNOti [ ■ ■ - 

DOijRL’e PPFCISIgU HRL a NK »DHF ILT 

c 0 W M On/ X E EP 4 7 . pG ippiPpLT iNGa!N*/;AIwI 50) • N p H A S £ » p H A S E I 5 0 ) »GSyM* 

1 pSYM.NRLFRiN&RMOJiODMOiRx'to^BY^.lOl.YESpL 

— Ua<*,i CAL -Y C-S R t 

C0h;H0N / KEEP*7.R00T{7S> , E A 1 7 5 ) , Ne I G , N A • N* ■ N !( 7& 1 * K 0 * 7 ^ i 

— c o H p u F. X - ROO-T.EA - - , 

COMMOg/KCEP>0/WOEr,»NEQ.HE,N c OFi jRt 1 (100 > » JC * IpOO I .NO t I OflO ) , 

1 . LLl inoo> .LOCPot t6n»*GJ *EV< isaoi 

C 0 m M 0 N / K E E P l 6 7 s T A G F i * OD F > N K r L P L , N R p 0 L E » N R Z ERO * N X B « N X M t NX R • 

_1 I Op„ c . N f JD.P.^ii^.P_v A R. t R rj.0 u~ t P C. EL».I? E-A^-^-S.L Q5 H , 


00 1 1 7 
00 11 7 . 

oo i re 

001 21 

00122 

^ 00 i 22 

26 • 

.2 7 * 

7 8 * 
29 * 

3 n • 

3 1 • 

c_ 

CO l 77 

32 * 

c 

0 0 3 7 2 

33 * •' 

_...c. 

0 012 7 

3 3 * 

c 

00 12 3 

35 * 



DD | ?E. 

3 6 * 


n 0 1 2 < 

3 7 ♦ 


HO J 7 < 

3 0 * 

c 

0 0 3 2 / 

j ^ * 

... c 

ooi?/ 

nr * 

c 


2 yESpTX'YESRAW.YES^RP.oEBUS'LFLT.YESFCHiYESRlP* 

3 YESSRL.i NOMNAL ,NOTy.ET. - 

LOGICAL YESMTXtYESRA.V.YESsRP»nEBUG.LFLT»YESpcH.YESRLP. 

1 _ , Y ESSpL i NOMNAL , NOT v ET 

COpMON/KEEpl? 2 L&AiM,tFHASE» L POLF5»L.SDRL*L2EROS 

— LO^.lC Al t-G A I.M .-LPHA5 EJ.i : P0Lc s »USORL-iLz£^-eS 

C 0 v M 0 N 7 C R U 0 2 / pHAvAR»GArNv.sHIFT»ERpU0001,EiPU000)iNPG»NPP» 

.1 .. USH tFT »XR * YB U ) f DrLTA,MGSYM.,NPsYM 1 

C Or PL EX p H A V A P 

.. DIMENSION... - . rPIpJ|5qJ -• - - 

EQUIVALENCE (RplPtl)»ROoT(in 


CALCULATE. ThE-EIGENValUES 

IF. I NR *GT. HXFlG) HR." MxEj.G. 

C A^ L ROOTER 

LE < *■ 1 F 1 G »£'■* *-C.! G O. .uO.^2 dOO. 


8670 0 onoooa 

..667 1q. — ociooao 

6 67 2 o 000000 

867 3q - 0000 00 

8 & 7 4 a ooouan 

_8 675-0 OOOOOO— 

8 6 7 6q o n 0 0 0 0 

B 6 7 7 Q — 000 QO 0 

onoooo 

DO 00 00 

unoaoo 
.onoooo ~ 
oooooo 
00001)0 
oooooo 

OOOOOO 

on 000 0 
onoooo— 

aoDOoa 

onoooa. 
onoooa 
onoooo 
onoooo 

0 n 0 0 0 0_ 

86930 OOOOOO 

8 69*< 0 - onoooo 

6 69 5 o 00 0 000 

. oooooo 

8697 0 OOOOOO 

87 1.8 o 0000 0D-- 

87 1 ? 0 OOOOOO 

07200 OOOOOO 

8721q OOOOOO 

.... onoooa 

000006 

87 2.3.0 onooi a. 


86 7 9 q 

860Oq 

868 l.Q. 

8 6 B 2 o 


8 605 o 
6 6 8 6 0 
8607 O 
IfliQBQ. 

86890 
. 6 6 9 Dq 
869 1 0 
8 69 2q 


00 17/ 
00 1 3f- 


H 1 • 
H2* 


._ C. 


PRINT THE ROOT LOCUS RESULTS 

CALL rlprnt 


8 7 25 o 

8 7 250 
87260 
8 7 2 7 o 
8728 0 


a o o o i o 
o n o a i o 
onoo i o 
oood io 
0000 1 2 


00 1 3£.._ 

H 3 * C. 

001 31 

MM* C 

ooior 

05* C 

oa i 3i 

H 6 • C 

f'Dl v 

0 7* C 

OU 1 3 1 

•Diagnostic* 


5 A v E nOOTS FOP PLOTTING 

THE TEST FOR CoUALITy fl ^ T l; E E N m on- T HTF fi ER S MAY NOT BE MEAm1N G FuL* 


a72?o on ooi z. 

87300 onoo 1 2 

673 1 0 - O0DO 1 2 

' 8 7 3 2 o 0000 L 2 

87 33 a 0000 1 2 
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.-4 9* 

50* 

—51-*- 

5? * 

S3* 

54 * 

-55* 

5 A • 

— 3 7* 

53 ♦ 

..59* — 
An* 

... A 1 • ... - 

62* 

—A 3 *. — 
AH* ■ 

„ 65* — 

A A* 

.... 67* 

AH* 

— A 9 * — 
7f)* 

71 * - 
77* 
73* -• 
7 4* 

7 5* 

7 A * 

. _ 7 7 ... 

70* 
79* . 

9 0 * 

_.._a i * — 

H 7* 

.... £3*.. 

P 4 * 

-. 85 * - 

8 A* 


IF (PpLT.EQ»PDLK •OR* Npp-NpG.Eo»l> RETURN 
IF— MtPHASE* 19 0— TO-** 0 — — * 


IF l 1 ’ p p - 1,- p o . E o * 1 ) GO TO 6 n 

E fi p < N p G * " F P I P ^ 2 • J — 1 1 

£-EFr4-pp<p)— — — 

30 CONTINUE 

C 

-c — phase- root— toeus 

c 

— » — 4 - 0 --. c-ft-tt-J+HUE- 

DO 50 l*|,MEIG 

—IF -l Npp-Mp Q » t 0 *-- I 1-60 TO - A n — ' — 

NPp a MPP - 1 

... - L F P ( r 1 P P ) <= RP I p <-2* J - 1-) 

tlp(Mpp) c Rp I P ( 2 * J J 

SO— C-Ot :TTN u E- * 

RETURN 

C 

C — TOO F-ftfJY PLOT -POINTS 

C 

A-O—e-C ff-T-t-NOE- — — 

WR I TF < 6 *Ap? ) H X N P p 

... . A, 02.. f 0 q h A T U / U J— 0 Nt V— F I RS-t- » p CoT-S - SA V Xp. 

RETURN 

c 

_ 


2D00 - COt+T I HUE--- 

KOnE ■ *6 

RETURN- I 

end 


8 7 3 6 o 

8 7-3 7 0 — 

8 7 36 o 

873? 0 -- 

8 7 H U o 

: 8741 o — 

8 7 H 2 □ 

: — 0 7 43 o— 

8 7 4 H q 
87 4 A □ 

8 7 4 7 Q ■ 

8748(3 

— : 8 7 4 9 o— 

6 7 5 (J q 

.... 675 l o 

87S2o 
6 7 5 ‘l o 

-0-7 5 5 o— 

875A 0 

— 8 75 7 D - 

875B d 

6759q 

87600 

—87 A 1 0 - 

67620 

p-0 R-R 0 OX-LOCU 5— p-L-O-T S *-1 — 8 7 A 3 o 

8 7 A 4 o 

877 1 0 

87720 

„ a 7 7 3 o- 

8 7 7 H o 

B.7 7 5 o .. 

B776q 

6777o- 

8 7 8 5 o 


OF COmP I.LF.T.I ON.!... 


6-176 


“FOR * US f.SAVE ,F 'SAVE 

FOR S:EJ X-OS/2i/7.*<-DBi «J7S.3A_U^2L_. 


SUBROUTINE SAVE EMtRY POfMT 000134 


STORAGE U S F. D : CODE! 1)0 (J DJ3 7 ; D A T A J_p } . On 004 7 J _ B L A M K _ £0 M M .0 N l_2 > 00 OU_Q d 

f OH MO N R LOCKgj 1 

[003 KEF.Fl 000.026 

POOH KEEP? 0 00 7 0 5 

... L005 KEEP 1* 0000 3 1 — 

(006 C R 003 016115 


E>Term A |_ REFERENCES...* 13LoCKj_^V.£J - - 

t'O D 7 m-’OUs .. 

00 10 N 1 0 2 T 

LOl 1 HERS 35 


5 * OR A 5 r ASSUN ME HT I BLoC* ► TYPE. RELATIVE LOCATION* NAME* 

C0Q1 noOOiZ 1 OL OQOl OfjOll 7 20L 00 0 * 000002 *pflF OOO* R 01*0^0 AA 000* L 016113 AUTO 

„ 0006 , C _Ot*a7.2,J3 OQJL16,, g ..0.1.6 1 1 2. g-Oilj 0 00-6— C- 0 0 OQlIp — C - y — -OOC^-fc-flOUD .Z2-..0Z&V* Cl 00 6-- L — 0 1611 0- DONE 

(1004 C 000226 E A 000* C nl*o4D ppRO 0006 c 0 1 *C(4 2 FpRl 000* C 0l*044 FP R 2 0006 C 01*046 FRO 

... L: o 0 6. c • o 1 *0 5 0 FRJ OOU*-C--U 1 *0 5 -2_.FR 2 norm 00 00 4 2. -I N jP.S 0005— — OOUO I 0— I OPEN ooos QUOO 1 1 JOPEN 

{’004 1 00 0^72 <0 0QU 5 D n o n 0 1 «dDE OOU 5 L 000023 LFL T 000 3 I DO 0 000 MAX1T 0003 1 DOOOO 1 MXElG 

f..JO 3 nnnci?4 mxEIG.T. 0OO 3 . OUOn 23 M X E S T 000 3 ..0000 0 2 M X F R M . OQ □ 3 OOUO 0 3 HXNBrt U003 0U0DD4 MxNCOF 

cl>o3 oonoos M X N C T 0np3 0000 20 MXUCV 000 3 OOOQO* M x u E 0003 000007 HXNEQ 0003 OOOOlD M X M F J 

r 0 rj 3 noon I 1 _m X -j q. o 0 0.3 0 0 »Jn 1_2. _M X H f’jj 0 0 LI 3 0 QUO. 1 3 si x i >P p 0 0 0 3 _£) QUO 1 4 ,.H X UQ P_T 000 3 000015 M X N 5 M - 

t oq 3 onooi* (i x h s p ■ non 3 n o o n 1 7 mxhtm noo? 000020 H*ijV 000 3 000021 mxnzt 0003 000022 mxpqLy 

f, 0o4 OQ 04 55 ,\| A OGQ* 0 1 * 1 02 [JCT 00U4..I QGU 4 rg p_ ] G..; ooo* t 0 1 * 1 o 7 NEST OOU* 01*076 UFPU 

f-oy6 ni6077 ufpI v non* oi*ioo nfp 2 nnu<< i oon l, S7 n l oon * i oi*ioi niter ‘ 0006 i oi*in4 nkodE 

HODS , 000027 normal OnoS L 00 On 3 n ooTY E.X Q 00 m I 00Q4S6 Cjr _ . .. 0 0O 5 000002. NRCL PL — 0006 0l*lu 3 NREg 

0 O 0 5 00 0003 NRf'OLt OOO 5 000004 N R7£R0 0 0G* I 01*10 5 NSTART 000* I 01*10* NT1ME OOO 5 00 ooo 5 Nxb 

0 g a 5 oonoo/i ...nxm mns Q.a[io.S.L_N.xR. aoa5 coq.q.|4_p.c.ri oun 5 oouo 1 S.pf.ac ooos — _ouoo 1 3 pnom — 

C 0 0 6 c 0t*0 5 ‘( PRO QUO* c 0 1 6 0 5 6 pRl- OOO* : Ol*6*0 P»;2 OOD 5 OOUOl* PSLOSH 0005 OUO 0 3 2 PVAR 

.. (10O*..L 0 1 * 1 1 4 ^ R Eg 5 E| OqO * |_U.L* 1 .U ..RE5TR.T 0 00 0- R_ .0 0 0 0 0 1- R \ » Aq i — 0 0 0 <i._ £ — 0 0 1) 0 U 0.. ROOT 0000 R OUOGOO RREAL 

(’006 c D 1 * a 6 2 " R 0 non* c ol*0*4 pi OOU* c 0l*0 6 * S2 ooo* c 0l*070 R 3 OOO 5 OUQUOO STAGE 

CODA c n 1 * Q 7 H u OQijS L OOOn 1 7. Y ESmT X- - OOO 5 L . OOO U 2 4, YfsPCH OUO 5 L 0 00020 YESRAW 0005 L 000025 YESRLP 

U0O5 L 00002* YESSRL O0J 5 L nn0{j21 Y ESSR° 


00 to 1 

op 1 03 

oa m3 

00103 
00 1 rvi 
0 3 ! n 
0 a [ n • 
0 0 10" 


!• 

_ 2 .*_ 

3 * 

*♦ • 

5 • 

* • 
7 • 
A • 


SUBROUTINE save 


E^-MxNE-Qj- 


1 mXNf I » MXUS »MXmPH » MXUpP ♦ MXNypT , nXNSM » MXNSp » MxNTM » 

2 ji X N <j , M x u Z T «MXpOLY .HXESTiMXE 1 G T ..M X N C V . - - 

CO’iMO'iFkf FP?/ .<GOt < 75 ) , E A 1 7^ ) |M p ( G , iiA , ig J , 7S ( ,K0 ( 75 ) 

c 0 : P L E * ROOT . e A 

c 0 ., M 0 1 7 K E F. p 1 6 / 5 T 7' r, E • K 0 0 E » M R c L P L ■ N 4 P 0 J.F * HR 7 £ p 0 » U X 0 * H X N * N X R . 

1 10 P F ; ! , J 0 6 F l! P.v A p , J . N 0 ; . , P C P L. » P F 3 C I. P. 5 L 0 S H . 


92580 
X25.?a. 

9 2* Oq 
9 2 * 1 0 
9262q 

9 2 A 5 o 
..?2**0 __ 


000000 
aoOOOQ_ 
odooqo 
ooounO 
U0UO0I) 

0 0 d 0 n a 
onuuon 
DO0O 0 Q 



oo i n* 

- 00 106 - 
o o i n v 
— o.o jn.7_ 

00 J \ '\ 

00 \ \ n. 

POM'! 

- 0 0 M 

■non 1 

,_. 00 l 12 . 

001 io 

-ODII'I 


2 YESMTX»rESnAfl,YeS5SP,0EBUGaPLT*YESPCmYESRLP. 

-3 rYESSRt-tNOMNAL .NOTrEV - -- 

t. Of; I CAL yESmTx 'Y^S^A.ii.rESS^P* DEBUG »LFLT»YESpcHtYESRLP. 

~Y -FrS 5 R fc-t-N-Q M fi-A fc-j-N O^Tt-F- 


C FM, MONACO u'f) 3 / C u< ^i^O) iTp^niFP? 1 ippRZ iFKOtrpl »F R 2»PK0»pRl * p R 2 » 

... \ — - - — p Q »:( ! ,rZ »r 3 ,d ,u ,Mf p(l ,!-ppl »NppZ |NI TER t^CT iNREq t^KOoC-,- 

2 wST arT » NT 1 !1 E * *|EsT tOONE 1 iREs TrT , c OMj ■ Ay Tf) * rEqsE|_ 

C'Or;PL E X » r U » Fp RO » F pR l iFPR2,FRO»FRT*FR2,pRD»pRl»pR2*- 

1 rO , <? ] ,,R2 *R J , U « tj . 

l_0^4^A4= P-vR-E S-T-R-T , C 0 N;j t-AlHO-fK E G-Stfc- 

0 1 mEN$ 10*! AA ( 7 ) 

Equivalence IR3,mHI1 - — 


926 70 
92600 
’2690 

-9 2 7 00- 

927 10 

92 72;).. 

92730 

9 2 7 5 0 
-9.2/60- 


pROgRAM coding 


RR£AL“A4( I ) 

ue 1 r, ’* *JE 1 g * 1 

kd < me- 1 r,» b • mKodE 

M I < NE I G ) ■ Ml TE r 

J F — (.0 E-I> u T-E-4-6 *.&.0Q.) — JiE4- g 4 R 3 , N K-Q 0 E r-Nl-T-E-R-, u 5 T A -R-T-t-N-T-t-M E-rN^jT- 

• M A X I T 

ADO- FORMAT t * 0 SAVE* « 7 y T • R- 0— Q- ~ T - 5 — A - v E - D ' /• 1 3 X * J “N E I Q -*-l *4 1 5 x 

1 2 e J *».S, 5 X . * Mif Or>e * . 1 3 . 5 x , *Nt TEr* I** t 5 X , •nsTArt* / 1 3 X, »NTJ 

— 25 X , 'NeS T » , j.H ,Sx , * max IT» , !**/■» — — - — ” 

IF ( A G S { R J M A <3 ) ■ L T * 0 * t l GO To 20 

..... ^ f — t-A q S -I-R-T-m A G 1 ■ - ■ *-L-E~f — 0-*-0 0 1* A ^ S ( -Rr-E A-l-T- 1 — G-0 — 40— - 2 Q — — — 


’279 0 

-9 2800 - 
928 1q 

-9-202Q- 

9 2 H 3 q 

-9 2 84o 

9288 0 
9286 0 - 
9 2 8 7 0 
- 92800 - 
9 2 8 9 0 


000000 
• oouooo 
ooauoo 
— 000000 — 

L) c CJ D 0 O 

-— uouuoo 
onoooo 
— ooauoo - 
00000a 

— anaooo- 

ooooao 

— 000000 
□ 0000 a 

- ooooao 
ooauoo 

— ooaoao- 
oqoqoo 

- 01)0001- 
000003 
On 0 DO 6 
0000 1 1 

— - UoOOl 3 - 
0000 1 3 
- - 000032 


SAVE COMpLEx ROOT 


R 0 0 T 1 N E I G I = R 3 
M-F-f-AUTOi— GO-40— 1 0- 


try cqnjugatf as ne*t estimation *f not already saved 


COnJ c »NDT.CONJ 

-H E-T'O R -N 



000032 
- ■ • u 0 a U 3 2 
an 0032 
000 D 4 1 

929S 0 

000041 

9296 0 

000041 

9 29 7 0 

00004 l , 

9298o 

000041 

9 2 9 9 0 

000050 

~_9 3 0 0 Q- 

-000052 — 

93010 

000052 

-- 9 3 0 2 0 

• ■ 00 DOS 2 

9 3 0 3 0 

000052 

_ 9304 0 

- - 0000 5 2 

930^0 

000054 

-9 3 0 6 0 

000 056 


0 0 14’) 

51 • 

0 0 1 4 i 

5 2* — 

0 0 1 4 7 

53* 

_ n 0 1 5 .1 

5 u • 

DO ] 5 ! 

55* 

0 0 15 1. . 

5 6 * . . .. 

0 0 1 5 1 

87 * 

. 0015 > 

.58* 

ODIS t 

59* 

n n | t "i 

4 0 * 

00161 

6 1 ♦ 

- 00161 

_6 2* - 

0 0 16 1 

63 * 

DO 1 6 1 . 

& H * 

0 0 1 6 

65* 


SAVE COI-ipLEx C°NJiJGATp OF ROOT 


10 CONTINUE 

C-Osj j = «F Ai_-SE-» 

IF 1 N E I G . £ 3 • M S > RErURN 

IF - ( w E I G • E •') * K X E-lG 1 RETURN. 

NE J G * MFIG * 1 

.ROqT < N E I r, ) - - -C 0 N J G 1 R3) 

K D ( N E 1 G 1 ■ 4 

J ai 14NE-1 -G 3 — »— a — 


RETURN 


save j t a l r 0 o T 


9 3 0 7 0 
9 30^0 
9 3 0 9 0 
9 3 1 Oq 
9 3 1 1 0 
-9.3 120- 

93l3 0 
931 4 0 

93J6 0 
-9 3-1 70- 
9 3 1 8 0 

931 9 a 
93200 

932 1q 
9 3 2 2 0 


oooo56 

0 OOOS 6 
OOOOS6 

000 0S6 
000062 
- 0000 & 2 - 
00UU6 2 
onoO 7 1 
000100 
OQO 1 03 

ooa 1 10 
-0001 1 2 

000113 
000 1 1 3 
000 1 1 3 

000113 

n n n 1 1 3 





yFOR»US* r *^^ e ST i F « 5 A VE$T 

FQ* •;e 1X-05/23 / 7H-.0S :«47: 9 6-4 -D- r |J- 


S'iBSO'jT ! 'i£ 5 A v E 5 T ENf RY POjwt 0 0 0 0 S 9 


.STORAGE U SEO.5 ... COD E U JLaJQo.OO tQJL_p AXA ( 0 1-On0217i- SUa-MK— gOMmO-W.L2.J. — DOOOQ&- 


.XOHMO N—AL OCK-S-l- — 

3 0 3 KEEP? — 0007-05 


EXTERNAL REFERENCES <0L0C*t NAME) 


)QQ9 M ERR 3 5 


s ros Ar,E ASSlgNMEMT — 1 gL 0 C* ♦~ T y pE » -REt A-T-.j v E— l_OC A.T.| ON »— N A.^ E-) 


jia oi o-ooa2S_i.o0t — 

)OoO 000231 lNjpi 
-1003 — - 0Q0HS7..MI 


00 □ ^ QQ0S72 KD 
„.0 o 0 3 QO O R 5 ij R- 


— 000-1 0 00-0-*G— 4-2-T-6- 

ODOO I 00 D 2 26 N 
- 0 00 3- C O QUO 00 --R OoT~ 


— -0-Of>3 — C — 0-OQ-2-26 — E A — 

0003 I oOO* 156 NA 
-0000 -C-OOOOOO TMpEST- 


-0000 — t— 00022 7- 4- 

0003 . 0U0R5H NEIG 


SUqR0uTlME-5AVE5TCM) 

_C 0-^M.O W /<-f £^-97— R-0 0^+-?-&4- r E-A+-X5 -F-^-Wf-4-G-j-N A T W N-l L 7 ^+tKTH 7 5 ) 
COMPLEX ROOT.EA 

-COmPLEX T ftp E 5 T l 7 54 : 


9 * 

10* 

11 • 
12 * - 
13* 

-1 M * 

1 5 * 

- 16 * - 

1 7* 
IP * - 

19* 

.20 * 

2 t • 
??* . 
2 3* 

. 2 9 *. ... 

25 * 

26 * 

27* 


C S A VE THE CONTIGUOUS SYSTEM ROOT ESTIMATES 



IF <M.E0.?1 GO To 100 

W-.ji — U A 

IF <H*EQ.O> RETURN 

00 -10 -1*1 *N 

T M p E S T < 11 ** E A C 1 1 

|4J_C 0-M T-l-MU-E- — — — 

RET'JPn 


C-- R-ESTOftE-.-THF— cONXIMUOds— SyST-Em-rOOT.-E-S-T I MAXES- 


4 _xq— c_o.t_T-l-:4 OF 

U A = N 

IF ( M A * £q • 0 ) — S C T.U»*4 

00 1 1 0 l * 1 • N A 

EA £ I.) *.- T.MP E-S.T t.IJ. 

1 1 0 COnT 1 NOE 

_1 :r e xU-R- n — - - 

- En d 


oorooo 
— 0 0 00 0 0 
aoooao 
-oooooo - 
ooaooo 
oooooo 

OOOOOO 
--■OOOOOO — 
OOOOOO 
000003 
000005 
onoo i 2 - 
oooa 1 7 

- 0 0002-1 

00002 l 
- 00 00 2 1 - 
000021 
00002 1 -• 
000021 

— 0000 2 5 — 5 
0P0025 

— 00 DU 2 6 
0000 33 

— 000090 
000092 

0 00092-- 

000057 




SUBROUTINE SaVRUT e N t r T POINT 0 0 o o 7 n 

storage us~d; CODE i. U_DfyO-i.no.;-.. o ata [jjLnnOO 1 5 e *- a *>k— common ( 2)— oooooo- 

CO.MM.OM_ftL.D-CK.Si 

HQ 0 3 - KEEP 1. — 0 000-2*- 

') 0 0 H KEEPS 0000 7 4 

-0005 KEEP?-- 

300* KEEP! 1 007723 

3007 KEEP-1 h~ 00003-1 


external references * block, name) 

D D 1 0 N E R R 3 5 

STORAGE ASS I GN ‘ 1 E«T. I StOCX»._T.¥P-EL»„R.EtAT. t .vE- LOCaTjOM »— N A M E 


DOOO&3 . 1 Oonk.. 
i L G0' 1 073 SPRINT 
DODD 1 1 — lOP-E-N— 


00 0 1 0 no u 2 4 

n oo o i OOOo 0 0 



DOO 3 

OODOnn m A x 1 T 

0004 L 

00 DO 7 2 MODIFY 

0003 

- cn — 

T0q3 

0 0 D 0 n 2 M x F-P M 

000 3- 

-.00 On 0.3 — n x MB M 

-0003 

1 

DOq 4 

0 0 0 0 n * M X N E 

000 3 

OODoD 7 mXNEQ 

GOOD 

CO 

3 0 :J 3 

0 00 0 13 .‘IX M p P 

.a n a 3 

-.onon 1 4 . u xMqpt — 

. 0003 


DOo 3 

000020 MXnv 

0 U 0 3 

tnOij2 1 M X N z T 

0 00 3 


J006 

. • _00 7 7 22...M E Lgz-T- 

-QUO 5 — j. 

-.ono'J?.?— M-t— . 

._000A 


i !) (J 5 P 0 0 H 5 A NR 

_ JO 0 7 ODD Of) 5. .MX ft .. 

■ ) 0 0 7 0 o 001 5 P E A c 

• oooa c oooono SEir,_... 

30Q7 t 000024 YESPCH 
0Q0H-.L~0a007.Q_SL£5 7 0H- 


0007 0 0 0 0 0 2 NRCl.PL 

,D.f)0 7 0 OOoU 6 -N x N 

0 0 07 nnOr|13 o^Om 

0007 ooQgOo.-st AGE— . 

0007 l 0000^0 yESRA.V 

_oo 0-4 aaao o 2—7 m 


OOou-.L oooo^i 
0000 OClOOOl 
Q{V£L4 — I— OdSiZ-U- 
0003 0Q0001 

0003 - 000004 

0003 0000>0 

000 3 — nooo I - 

0 0 0 3 0000^2. 

-OOOA— I— 00 3 7 2c. 

0007 000003 

poo? nonoo 7 . 

0007 0000 1 6 

000 u auoooo 

0007 L O0OO2S 

-dod* oaoooi 


- bct-H 

INJPS 

— XtrS 

MXE I G 
M x nCOF— 
M x N F I 
. M X i>|Sm — 

MXPOLY 
— N J 5 

NapQLE 
■ M X 9 

PSlOSH 

SomErK- 

YES^LP 


L-- n 0002 2 -debug - .. 
OOOOlO iopen 

noOOO-t—K^ODE 

J OO0O2H MXEIGT 

000005 MXNCT — 

OOOOll MXNG 
-•OOOOli M X N SP 
ono^ss NA 

- t -— T. 00 0 2 7 .._m 0 M M a t ~ 
oonoaH nrzero 

. .... oOOOaR N Z T — 
0 0 00*2 PVAR 

000003 TO 

L n00026 yESSRl 
_ — 0 0 0 0 05..-7-T- V A L — 


□DOS C 000226 

0004 I OOOO* 7 
-0 00 7--L— 1 000023 

0003 000023 

0003 000025 

0003 000012 

0003 000017 

0006 1 000454 

QQ0 7— L --000 0 30 
OOQi ! 007640 
0 0 Q 7 0000 1 4 

0005 C 000000 
•0007 L 0000 17 

0007 l 00 00 2 1 


DO) Pi 
DO 1 n ) 

do 1 m 

DO 1 n 3 
0 0 10 4 

..0 0 Id JU- 
DO 1 lD 3 
DO I 0 S 
DO 1 0 7 
COM 1 

L>0|1 1 
r 0l 1 1 


SUnR°uT INF SAVRUT 

COmMO.j/kEEp I / ri*x I T ,MX F - 1 G .M,FRM .MXM13 M » MX^COF *«XNCT .mXNE trtxNEQ 1- 

1 ’ mX^F I iM)(NG *HX*.jPH » ■■xNpp.i MX N ^PT « rfXNSM * MXNSp »Mx N T\* 

2 cilXN.tf..KJCNZT »rfXp.OLT.*MX£ST i 4X E I GT » rt X NC.V _ 

COmMON^kEErS/ sOPFRK’ZT t£M*TDiN7T »zTVAL^O) , iThzT»YESZOH»0OTHi 

j .... M-ClD -I — - — 

LOGICAL Y ESzoH»80TH*MoDIFY*GpRINT 

.„C 0 m J 0 N 7 k E F ft-?./ - K 0 0 T t 7 5 ) i E A 1 7 5 * « M E I G * N A t N R i N I- l 7 5 1 , K D w 5 I. . ... 

c o ’ <* l f x root , e a 

- ~ ' . . n ' . / r- r- - t 1/cf r r i ! 0 n n > ...ilM in-o) .leni 1 1QU01 . N S E I G t 5 0 I » N E 1 G 7 T . 


LOGICAL yESzqH*80TH*MoDIFY»(3pRINT 

_C 0 m H 0 M / K E F ft-?./ -R00T17S) 1 E A ( 7 c, ) t N E I G » N A » N R « N 1. 1 7 5 1 , K D 1 7 S ). . 

c t> • <* l *■' x root , e a 

CO^.MD ’i/KEEft * 1 /5 E Ig i 1 ODD > M J U [ 1 0 - 0 > ♦ * p S ( 1 00 0 ) ,NsE 50 ) ,nEjGZ t 

co - i»l - a sEtr, 

CQ-:iQ."i<kEE P.IA / S T A r. Z > K 0.0 -AN_R c L p L » N R P 0 L E j f . ! .R l E Ld.i MX ii.» N X N 1 M x 

I 1 0 P F n • J OP E M » P v A R * 0 NOv,pC p C*PFAc*PSl-OSH» 


?328 0 
?32?0 
? 3 3 Do 
_? 3 3 1 0 
?332o 
_? 3 3 3o- 
? 3 3 5 0 
_? 3 3 6 0 

? 3 3 ? 0 
93400 
J 3 h 1 □ 

93420 


Onnoo3 
000003 
000003 
.000003 
DQOO 0 3 

— oeoooi- 

000003 
.. 0 nOQO 3 

000003 
UnOOQ 3 

Or 0 0 0 3 
OOOOQ 3 

000003 



2 yESmTX *rFSRA.¥.YE5s R P «C 

.3... .YESs^.tNOKNAL.MOTyET . 

LOGICAL yESMTx»r E Sf<A 4 '< 1 yE 5 s f <P*C 

_1 y.E $.«; iiO A-L-r-W^) T-v-E-T- — 


sAV E ROOTS POP SAMPLE RATE ROOy L oc'JS 
NOtYET “ .FALSE* 

jj-Sf-1 4 -U..I 442 -T-l — Q — 

IF IneISZt.GE*mXe| Q t> *ETU r N 

NSF-IS I-I.T.MZT.)..* NEIGZT...+ i_ 

DO 100 I e 1 .ME I S 

«£ T G^T 3 WEIGHT • + 1 

5E f 13 f NE 1 <5ZT > = ROOT 1 I I 

UI .5 ( MF4-G7 T.)— - -W.1-U-) 

K D ^ < M E 1 S 7 T 1 * K 1> « I ) 

IF < H E I 5 Z T « G £ * M X E I G T GO jQ.-iOOO— - 

100 C 0 M T I ’ U F 

RETURN 


DEBUG ♦LFlT.YESPCHfYESRlP, 

debug »lflt»yESpchiyesr up. 


9343q 
_? 34 4o— 
9345 q 
- 2 - 3 HAQ— 
9 3 ** 7 0 
.93Ha 0 - 
93^90 
93500 - 
9 3 5 i q 

- 2.3 5 2 0 — 

9 3 S 3 0 
9354 0 . 
9 3 S3 0 
9 3 S 6 0 ... 
9 3 S 7 Q 
...9 3.SB.o- 


000003 

— Q nOCO 3 
000003 

00-00 0 3- 

000003 

000003 

00 0 DO 3 

— 000003 
000003 

000004 - 

oonoos 

— 000015- 
000024 

— • 00002 4 

D0003 1 
000033- 


t doo ..con r 1 nue 
rEtjrn 

--EN 0 


9 3 S 9g 

OOOQ35 

_ 9 3 6 Do 

0 0 00 3 7 

936 10 

000047 

■ 93620 

— OO00H7 

9 36 3 0 

000047 

9364q. 

0 0 0 0 4 7. . 

9 365g 

000047 

- . 9 3 6 6 0. 

...... on 0053 

9 3 6 7 0 

000053 

... 9 3 6 B 0 

000077 


of compilation: 


diagnostics* 


(t8l'9 


?FOR »US.v f J^ALE I F • 5C * l-E 
FOR JEI X-05/23/7‘4-aa;.Ma;.jO~-< 


s ibroutinE scale e n r w y point OOo16h 


S f U R A r, E USED : CODE 1.1 J— 0 n 02 1 6 . ; _ .ft AT- A t 0 -> -On 002-1 J.. qL *; 4 k—C- 0 M m 0**4 < 2 . 1 — OOOOOQ - 


EUERHAL REFERENCES <BL 0 CK, NAMF> 


0003 fixit 

10QR N E R R 3 - 


5 TOR A G r assignment <bloc k » type, relative location. NAME) 
lOGl nOQlOZ 1 0 L OOUl OOQ 1 2 3 20 L 0001 000196 & 0 L OOOO R 000003 A OnOO R 00000 ^ B 
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-FOR ie J X-o 5 / 2 ^ / 75 - 09 .: SO 2 39 _I | ,2 1 : 1 


S^ROUTPJE SYRFRQ £ N t 9 T POINT 1 0 0 0 2 0 

STORAGE used: code <J > On 012 1 | o AT A l 0 . J __ 0 n 1 0 0 7 ! e L i.M K„tQ MM 0 N t 2 > ...0 0 D 0.0 □ 
common blocks : 

) 0 0 3 KEEPS .... 0.0 JD.Q 7 H 


E<TER‘UL REFERENCES teUoCK. N A M E J 


tour co tan 

0005 NERR 3 S .. 


< T OR A Of ASSIGNMENT Ibl. 0C k » TYPE* relative l oCa t i ON » NAME 1 


110071 8T 

0 J 1 0 1 R ;g z 
C o o o o 2 Z M 

1 • 


001 

0 01 

oil 

sunROg" 

common- 

1 

lo g icai 


□ 3 l on 

00 R . 00 

Q 3 ft no 
tint sy 
/*e Fps/ 


00 7 3 Q P R I N 
0 0 0 0.—R A 0 I A 
0 C 0 1 7 T 

SF Rw I pR I N » 

SUPErK »zt 

„^d.Q.D.j-F_Y*GR 
Y&S Z 0 H * 30 


T 000 
N_ ._ . 000 
000 
FR 0 Ut> ■ 

* 2 m » t 0 , N 

RlN-T- — 

TH.MqDIF 


n 000003 I N jPs 

3 ODOODO-SupERK- 

3 . 000005 ZtvAL 


OOO 3 0000*7 itHZT 

■ - OOO 3 — 000003 . TO 


000072 MODIFY 
000070 yeszoh 


7 T,ZTVAL ( ^ 0 ) t lTHZT,YESZ 0 H»B 0 TH» 


Y • GpR l NT 


program. Cl 
R A a .1 A.N . 

FRqUT 

RETURN- 

End 


* COTA 


.IA?.2.7... • _ZJ 
N ( H A 0 I A N > / 


? F.R.I.tl.- 

6 . 2 S 31 B! 


- - 1002*10 • 
10025 0 

10 02 & 0 

i 0 0 2 6 q 

10029 0 

100300 
- . 1 0 0 3 1 o - 
1 0032 0 

1 . 0033 d 

1003 H 0 


onoooo 

□ooooo 

--OOOOQO- 
000000 
000000 - 
oooooo 
0 0 0 0 0 0 
ooaoon 

-000000 

000003 


1 00 3 Sq 0010 1 0 

1 003^0 000023 


_?NJs... O F C O MPILATI ON.:.. 


6,-209 


■ 2 F 0 O.US* r^^sT*F*TEST 

for 5ElX-0S/23/7R-oa;5O:H8 — 


s jsroutime test entry point 000223 


• STORAGE USED CODEJ-Ll — an.0.2 2 6 .; — OA.T.A t.Qj — n.n 0 0.2.0 J-. 0 L N m 0 N-(-2.1_0 0-0 0 0 

CO mmQN—^LQXKS i- 

.. -J003 KEEP J4 00 003 1 — 

JOOH C«U03 0 11 650 


E < T..ES ai A UAJK£JE£.a.&liLC£5- < aLpC* , MAMEJ. 

33Q5 -SORT 

30 Oft A T A N 2 

30 0 7 -NEHR3S - — 


5 r or a Gr assignment (bloc<» type, relative location, NAME > 

1001 OQ0024 lL OQQt 0 0 01 3 0 ( 1 L 0001 O0OQ41 2l 0001 000202 21l ' 01301 00O210 22j. 

)0C)4 0 U o n 7 n A o i ooo « - - -OPOoO* AFRQ 000 4 O 1 1 ft l ft- Arc 0004 --R -0 1 1 M 7 -AMP — 0 00 4 0001 52 Apha 

.1004 K* 011^20 >3 1 G 'THOM L 0 1 1 & ^ oEC« 0003 R OOOQ25 d Eq Q0Q4 ft n 1 1 & 21 DF 0000 R OOOQOl DIFF 

3 0Q4 -L-— 0 1 1643 -OP 1 : -0 00 3 -GO-GO - 1 2— r>0 —0003 QQOO-lJ — [H 000-3 0000 1 4 -.q2 00U3 0000 1 5 {>3 

0 0 0 3 0 0 0016. 34 Q0Q4l 011645 FRA M ODO 1 ] l oH A H/ ErjP 000 4L0 116H<I E R P 0001 L QHM 6 ERpn 

.'1 0 0 3 c (300010 FlFTEN- 0003 OOOO - 1 7--f I F TY 000 4 ~R -0 1 1 4 2 2 - F t 000 3-fc- 00 000 &- F OU R 0004 R 011623 FR 

1 0 0 4 c 000000 GAINS 0003 c OOOnOa HALF 0004 R 0 1 16 24 j M OOoO aOOOl* INJP S 0004 01 1634 | NT 

.... 1304 011^41 lmx 000 4 -01 1635 R P R OQO^ f> 1 1 636. MppP- 0004 j - f) 1 1 6 37- N E X T- -0004 000G03 NGNpK 

•) 3 q u 013643 N ppp OOO 11 0 0 0 0 0 4 hjPlfio OQO'i OQOOOS m Y 0 P y S 0 0 0 3 000026 n i 0004 000002 N 1 A H P 

30u 3 00 00 2 7— a 2. oool O 0 0G 3 0-jvj3 — 000 3— C— GOO 002 — 0 n£ 0 004 0003 16 .p.A.HP 0004 ---000400 P01R - 

3304 q 01162 S PER 0004 0f)0 2 3 4 p FRq 000-4 R 0 1 1 626 p HA 0004 000*26 pHAMp 0004 00071Q PHD-I* 

3334 0 00 5 4 4 PHF3Q -000 4-3 011627.. P m _ 0 003 - OOOO^O PI—; 0 00 3 ■ — 0 0 00 2 1 pl2 --0C04 000462 PPha 

3 3 0 3 0000 24 RAodL'£ 0004ftOll63oftr 000 3 0000 23 r p j 0004 003726 5 Av AMp' QQ04 000/72 SAvpRQ 

3004 00**62 S.AvPHA 000 4 R _.a 1 16 3 l._ 5 M a’ 000 3 0 0 0022. Small- 0004. ft-ol 1*32. $TA .... . . 0 D 0 4 -011633 STq 

3000 q OQOO02 TEST 0000 |_ OOOQOO TOOFIN 0003 C 000004 Tdo 


00101 

1 • 

SUu KOyT I NE. 

TEST - - — • 

1 00 3 7 0 

oooooo 

00103 

?* 

COmMON/kEEp 14/ h Alf , ONE, T ft’0»pOuR . F iFTENtOO ,0 t ,07 ,03 , 0 4 .FIFTY *P1 » 

10038 0 

oooooo 

00| 0 1 

3* 

1 

-.-p.I.2. t .sM.AL.L.*-RP. I , RA0 oEG,0E6»M1 ,N2»-N3 - 

1003.9 0 

oooooo 

00 1 0 i 

4 * 

COMPLEX 

hAlf.oneiT-voifour.fiften 


oooooo 


C, • 

rrt..Mftu/ra,.fil/ ^ 11 uc . Ml IMP-N/Mo.'. M O. J. C n.44-Y-G-P4-C. .JLflR OXBO Ji*-A (V I O-LS 0-J-, 

LOOft2o 

-oooooa 

qo n s 

ft • 

I aPHaISO'1 iPFR^ISq! .pAMplSOl * P 0 I ft ^ 5 Q * ,PPHA(5 q1 , 

1 00 4 3q 

oooooo 

0 0 1 n 3 

. 7* .. 

2 .. 

pH frq { S 0 > , p H A P.P ( 5n PHD | R (S U 1 , S A VF R<m S Q0 1 , - 

1 0 0 4 4 o 

oooooo - 

0 0 t 7 ’* 

n • 

3 

S A ^ a , 4 o ( 1500) , A v p u A ( 1 5 ri G > i *HL i A'-lp ,B Ig iDF ,FL,FR*lM^ ' 

1 00 4 5 q 

000000 

3 Q 10 * 

9 • 

4 

pER,oHA,PHL,Rr*S(<l Jl *STA*STO, - • 

1 00 4 6 o 

oooooo 

3 0 l n *, 

1 r> • 

5 

1 N T , i 4 P ft t M ® P P , M E X T , N P P P , L M X , 

10047o 

onoooo 


11* 

ft 


1 0 0 4 8 0 

onoooo 

. J J J J J — 

00 tl S 

l 2 * 

COMPLEX 

G a I NS 

l 0 0 4 9 q 

oooooo 

20 1 n 7 

1 3* 

real 

1 M 

jonsoo 

oooooo 

00111 

14* 

LOGICAL 

Cj rl (. u , n P l • F 4 p IK PAM , E R p ) l > E R C> P 

1 DOS 1 o 

onoooo 


00 | ! I 

3 o i n 
oo nr 


16* 

17 * 


LOGICAL 

PROGRAM CODING 


TOOF IM 



_2 D.l.1.1 

1 A ♦ 

r 



on 1 1 ! 

1 9* 

c 


. . .. 

00 l 1 l.. .. 

... 20* 

... . c . 



oo t n 

7 . 1 * 

c 

< 

... . 

30111 

... - 22*. 

c 




0 0 112 

2 3* 


1 


0011 3 

2 4 * 


1 


00 1 1'* 

25* 





0 0 1 1 0- ... 

— 2 6*. — 





0 0 1 1 s < 

►Or* GNOSTIC* 

ThE 

. _ 

□ 01 1 * 

27* 


— 


00 [ 5 ] 

20* 


i 

.. . - 

00121 — 

... 2?* 


( 


3012? 

30* 


1 1 


0012 1 

3 1* .... 

— 

— 


30 1 2 > 

32* 


2 


0 D i 2 "» . 

3 3* . _ 

c 

...... . . 


0 0 ) 7 . 3 

34* 

c 



.. 00 1 2 i ._ 

35?. _ 

C- 

r . 


0 0 1 7 -* 

•r> t agnostic* 

THC 


3 0 12') _ 

... 3 6* 






00131 

37* 




•3 0 1 .3 1 

30 * . 

... 



no 1 3 » 

39* 




00131 

4 0* 



"CM 

DO l 30 

4 1 * 


3 

JN5_ 

0 0 13 7 

42*. 



O 

0013 7 

43* 

c 



.0013 - '.. 

44 * 

... c. 

. 


0013' 

45* 

c 



00| Mi 

4 *, * 





no i h ’ 

47* 




DO \ H • 

4 0* ___ 






SET ST AND A SO RETURN. COMMUTE AMPLITUDES AND pHAS^S 


MFxT * 2 

k X_ a — K-£A.t-t ft A 4 -W-S -1 

IM * aimag(gains) 

AMp 3 -SORT « RE**2 ■*— ! M-* * 2 * 


pH A 3 0 . 

GO-. TO -2 -- 


I F < PH A .»LT-* • 0 • ) . PH A 3 PHA -X_3.6o, D.„. 


C H f C K P H a <5 E S H I F T 5 


IF Ifr.FO.STA> RE-TUWN~ 1 

TOoFIN 3 .TRUE. 

o I F F '» A « S ( PH A - p h L - — 

PI f F = AMlNl<DlFF,AD 5 .( 3 A 0 ,- n lFFn 
±F- -I ait F_.ftX.*.5£UJ J 0 Q F.l.'J — 3 — « J -A Lft EL 


0 0 1 M ■» 

00 J H '• 

n o j 4 * 

J) O 1 <*/». 
no i h a 
oon? 
oo 1 SO 
00151 
0015’ 
n 0 I - 0 

no i sn 

•■> Ojc;? 

no i an 

00 I A 1 
30 1 A 1 

- 3 ° ! A .L 
00161 
o o i a r 
n o s a, 3 
3 0 1 x '* 
no i * r > 


q 9 c 

So* 
51 * 

. 12 •_ 
53* 
54 * 
55* 
5 A ♦ 
57* 
^ 3 * 

5 9 * 
60 ■ 

6 1 * 
A ? * 
63 * 
6 4 *_ 

&5* 

6 A • 
A 7 * 
6 A* 

A <7 • 


J Nf REmENT 700 SMALL 


U.E_. »_ .2 . *.C E — . — — — 

I F ( A»S I OF ) , GT • ( PER*FR ) > GO t 0 2 l 

FR 3 FL ♦.OF— -— 

NEXT 3 1 

RETURN - - - ~ 


-UL<:J1 E M ELNI IjuX-UA RftE- 


H DF . “-0F./2. 

OErR 3 .TRUE* 

TEST “ .0002 - - _ - - — 

D I p F a AOSIPHA - PHL > 

I F ( D.l F F * ft T. . a I .G _•_* N.D L»_._A Mp *GT ... i.L_ _JX lT.__5__jdiQilO.2- 

tF«Af5S < DF5.!.T.lTEST«FRn GO TO 2 2 

FK = FL * nF . . .. - 

NExT - 1 

U1.cMaiEMT.. .M1.1.5.T RIhaIN fll.T.H.Ul. LJglXS 


2.1. DF 3 0 F /. 2 • 
RETURN 

2 2 OF = 2 « * OF 
h F T U 19 M 


1 005 2 o 

000000 

100S3 0 . 

O0OOOO- 

10054q 

oooooo 

\ n ^ q 

-000000 - 

10056 0 

oooooo 

1 Go5 7 o 

onoooo 

10058 0 

oooooo 

1 0059 0 

oooooo . 

1 DO 6 0 o 

oooooo 

1 Q06 l o 

.n Qnoo 1 

1 0 0 6 2 g 

000003 

1 Q 0 6 3 o 

000005. 

.... I 0 0 6 4 o — • 

000017 

1 00 6 5 o 

000021 

j.on A 6 n 

„q q 0 n ? 2 

l O067 q 

000024 

. .... 1 DO 6 8 q _ 

0 0 0 0 3 1 

1 0 0 6 9 o 

000041 

1 0070o 

000041 

1007 1 o 

000041 

40072q 

- 0 0 D 0 4 1 ... 

10O7 3q.. . 

00004 1 

1 OQ 7 4 q 

000047 

1D07Sq 

000051 

1 0076 D 

000055 

.1,007.70. 

.000064.. 

10D78Q 

00 D07 2 

1 00 7 9 q 

000077 

1 ooaoo 

000077 

1008 10 

000077 

100820 

000077 

1.0 0 8 30 - 

.0 P. 0 1 C 5. - 

100840 

0001 in 

10085 0 

000 1 1 7 

1OO06 O 

000122 

1 00 8 7 o . ... 

000124 

10a88 0 

OOO 124 

100B9Q 

-000 124.. 

.100900 

000124 

1 009 1 o 

000130. 

100.920 

000132 

... 100930 . 

000 134 

100940 

OOO 136 

100980 

000 142 

10096q 

0 0 0 16 2 

..... 1009 7 0 . 

000 1 7 1 

I0090 0 

0 0 0 1 7 4 

__ ] 00 9 9 Q ... . 

000 176 

IOIOOd 

ODQ 1 76 

lOlQJo 

Q.O 0 1 .7 6 

10 ipZo 

OOO 176 

10 1030... 

. 000202 

1 0 1 0 4 u 

0 00 2u 4 

1 D 1 G S u 

00U2 1 D 

1 0 1 Q6 0 

OQ U 2 1 2 


22 





ZIZ - 9 


•“FOR • U 5 ft c®P’JSFH » r ♦ TRN 5 PR 
for r E I x - 0 577 3 / 7 4 - 0 0 .: 5 J. I 0 5i . . U.» 2 L_ . 


subroutine tr n sfr entry point 0 DoQ 7 n 


$TCRtr ' E u5?:D: - C ° P- Z IU ._. 9.1)007 4J_ n A TAJ Oj q n 0.0 2 0 i_ g L A Nic... C p mmq KM 2 > QQ nnO n 

-X.0 M.MO N_. D U0.CX5J 


.0.0 0 3 IC E F p 2. . Q.g.0.DA7. 

f 00 H K E E P 3 000102 

t‘ 0 0 CRUD2 00 I 2 1 S 
0006 CRUDJ 011650 


F - T E P N A L RE FE R EN.C ? S. .!.B l OC? ■ NA mF ).. 


t 007 PQL V al. 
coin c o v s 
•XOl 1 NENR-35- 


S"^ OR AGr ASSIGNMENT (BLoC i <'» TYPE. RELAT t VE L 0 C A T JON* NAME) 


f Co 1 
, ( 006 
NOQM 

roof _ L 
r Oo 3 
f*003. 
r no? 
r r.Q 3 
1*003 
( oQ3 

r Do? 
roon , 
cops 

rOoR 
_ r ■ c* o j 
f'O OP 
I Oo 6 
f C'OP 
r 0 36 
( OOP , 
f can c 


0UD01J I22r,' 
-000 L52._AP.HJ-_ 

0 o n n 6 3 op- 

01 lM6.£Hp H _ 
000025 HAST 
000033 H C 

o o n n “ p h f g m 

00 n n i a...HGEr:£_ 


QUO* 

_Qaa6.. 


.□00|i7q aDIR 
-FLU.6.2a..-BlJ3 


no oop*' hnomi 

00 0 0! 1 H P A 
0 0 o n 3 n HSTAR V 
000006 I 
DO 1 2 1-4 LOCO 
.. n 0 005 1 M AX 


0 0 0 0 0 0 N F J 

00 1 2 1 ? NUMpOL. 

000025 pc T 
0 1 1*26 ph A 
noop 7 s pn 

o 0 3 7 2 6 5 . A v A 11E_ 

OdOlni STnoro 

00 n 0 n 2 V * L M „ 


0006 L o 1 1 643 0P I 

—CLOD* 0 1.1 622... fL 

ooo3 nnon 3 5 hatt 
.. 000 3 .. 000 a 32 HDEc 

non 3 o n o n *i u hfpo 

— 0 DO. 3 0 0.0 Q. 3 J__H 1 ,N.c 

COO 3 o pools h N Y Q u 
- 000 3 ._.P0OQl 2.HRETA _ 
POO 3 0 0 0 1.1 ? □ h S 1 C 

0 DU 6 r_ .01 162*1... in 
0(300 I 000005 LOCDEM 

OO PM R n go Q 3 1 Jtj j_N 

OOP 6 0 n 0 0 0 3 fjGNPK 

...POP 6 OnHQ U 5. rj y q p t s 

0005 R 000310 po 
PpP6 f] 00 6 26 pn AmP 
OOP 5 !? o n 0 o U 0 pNN 

_pn [1 6 Pg0 7.7 2_, S A V.F.flQ- 

0 n 0 A 0 116 3 3 ^TO 

. .0(7 CM | p 0 Dip p y£ s N Y..a. 


0006 
--0-0 Qv._ 
0006 
-oao-6.- 

0 DO 3 
.0 00 3. 
0003 
-CICO.l- 
0003 
0 00.3.. 
00 0 3 
- 0 OOG 

0005 
JQ-DM- 

DOG 5 
.0006 
000 * 

0 00 6 . 

0006 
,Q 0 .U 6 _ 
DOOM 


000006 AFP« 
-L--0 1. LAii.2_0££ R. 


L 01 l** 45 Eram 

- — 0 1 1 6 23,_ fp 

D 000000 hblank 
. - 0 0 00 2 7 h 00 t. 

OCOU* 45 HFrDd 
DJiOQ.D5-.JHXK X 


0 D 00 2 3 HO 

— U000 17. HboL l;_ 

000021 HS2 

— COCO 12 lnjPS_ 
GO 1 21 3 LOCN 

- D ! I,* 3 V.MP.P.E 

* 0 00 7.6 M NNtPER 

OCP002 NIaH P-._. 

000 MOq pojR 
. 0007 10. pud 1R_ . 

P0OM62 p p j, A 

D D 6 6 6 2 — g A i/p H A_ 


0 [J G 0 l 3 s T p 


ooo* 

-DO 06- 
0006 
_ 0 G 0 6_ 
OOO 3 
. o o n 3 
000 3 
_D00 3 - 
OOo 3 

. OUQ 3 
0003 

OQO 6 
0000 
-PQ.a.IL 
0006 
0006 . 
0006 
.00 0 6 . 
Ouo4 
-0 0 n 6 . 
ooom 


0 11616 

0 1-1-6 2.1 

L Ol 16*17 
-C— 000 ODD 
r DOUG DM 
— 000006 
pQ 00 4 2 
— -0DDUO7 
OOno26 
-....00 00 1 6 
Cl OOP 2 2 
.... ol 163M. 
I 000004 
4—0.0 107 7 . 
o l 1 6H0 

ODD 3 1 6 

C 1 1*25 
. .. p 0 f J 5 M M 
r 000077 

Ol 1 6 3 L 

OOUOO 1 


AML 

-D-F_ 


ergp 
GAINS — 
hulk 
hESTl_„ 
H F P 0 N 

HMATR 

HPLUS 
HROOT 
HS 4g 
I N T 

LOCNUM 

NO.CP.ER- 

NPPP 

PAMP 

PER 

PHFRQ . 

P 1 60 

SMA 

STR 


0006 
-0003—0 
0006 L 
-000 3 
0003 
0003 . 
0003 

-0 00 3 

0003 
OQ 0 3 . 

□ 00 3 
0006 
000 6 

.0 00 6 

0006 
.0004 
0006 
000 6 
0006 
000 6 ..... .. 

0000 C 


01 1 6 1 7 
-000002 
Ol 164 4 
000037 
000034 
0 0 DO M 3 
0000 M 1 
.0000 1 4 
000036 
D 0 0 0 1 3 
000024 
011641 

0 1 1635 
0 1 1 6 37. 
ooauo4 

000076 
000234 
0 1 1627 
011630 
0 116 3 2 
00 000 0 


Amp 

DKFILT-- 
E Rp 

H A CC - - 
HCCW 

hfgd 

hfpn 
hnea — 

HR A TE 
HSTAN 
HX 

i-MX - . 

LRPR 

next 

N P 1 0 0 
PB 

PFRQ 

PHL 

RE 

S T A 

valo 


DO l r ! 

o o i n :• 

PO 1 02 

do i n 

o o in’ 


1 • 
2* 
3* 

4 • 

5 • 


SUrPOuTI-p T P N 5 F R 

£J>j:KO N Lz n pJV_.H3 u X? UL» AH FJ L.I.i H q L k. E. y..» H E SLL^MATR.. t » G E N E., HHX* » 

HRETA»HSTAN,HNErt»HNr0UtMR00T*HR0LL*HSlC»HS2,Hs4B» 

hO»HX.H AST * HPLUS » HOOT , H 5T AR lH I «t .MDEC » HC* . HCC* • 

HATT,HRATF.i-,A c<:| Hrpp,HFp f l,HFPL'l»HFGG,HFGN,HFPoD, 


1 D 1 (?8 o 

Q !..o.?. q 

10 1 1 0 o 

101 1 Id 
101 1 2 0 


00 0 0 0 0 
.-Qaoooo 
000000 
000000 
000000 


00 1 f)3 

• o o j n *-. . 

00 J o'* 

OOJO!” 

00 J p/ 

• 0 0 ] ft 7 
00| J f 

001 if 

00 1 11 

00 ] 1-4- 

00 I 1 J 

- • com 

001 I J 

- - COM! 

001 I » 

00 1 l ;i_ 

0 0 11 3 
• ■ COM'. 
0011! 
c o 1 1 r. . 
o o i j r. 

OD 1 1 f-_ 

0 D 1 | / 

on [ t 7 ■ 

. 00 ] ?r 

• on j ? i 
0 0 1 ? ‘ 

00 1 Zl 

00 1 ? f 


<Tt 

I 

ro 

to 


00)27 

0 0 1 3 f 

CO] yy 

n oi n 

00 l ■}•■ 

00 1 3* 


P * 

-*>♦- 


- -POf+BL-fi- P 
C0mMOn/k 
-i- — . 


R-F-C-l-S 

E EP 3/ 


I n* 

II * - 
12* 

i y* — 
i **• 

-1 5 * 

1 6* 

- 1 7 • 

1 P* 

19*.... 
20* 
24-* — 
7?* 
-23* 

7 H • 
25* 

26 • 

-2 7* 

2 o » 

7 9* 

3 n • 

3i* ... 

3 2 * 

-2 3J> 




+ 


p f a l 

• log-i c-al - — - — 

C 0 v M 0 n / c v y D 7. 2 
COf.-MON/CPuC^/ 


■c 

c 


*4 

-5 

6 

-C-OMHf-K- 

P£!aL 

-LO^.l-CAL- 

C OnPL £X 


PROGRAM COOING 


m n o m i 

.1.0-N_HRUA.NK-rDJHr j |_.T~ 

noT ^pTioTT 

H I M , w A X ■ 

-rfc'SMY*J*ST-NORO 

Kills! J;;: I i»» » ~ 

-TA”:*'?.*'*'**'*** -AD.R.ro. . 

p 

— 5 
PH 

— -]«T- f LRPR ,MP P P jNExTtNppp^MX , •— 

PECP .OP! iFRp’ERAh.fRpH.EHGp 

— 6-M-45 

1 * 

■••OtCR ,0p I *ERp * pR AM , EPph ,EPGp 

VALO.VALN 




3*4* 

35* 

36* 

*n J A g On S T I c *- 

37* 

• —.33* 

39* 


g a i n s c ( n ♦ o , n . o i 

■LOcMUm- =* — J 

L 0 c 0 E N * l 

00 1 I 35 It- MUMPOL 

CA L L p 0 L V A l. lL0CN UMt NNCpErt< j ) ,PmN, vAl n) 

GAINS e GAINS * V a i N / V aT^ 

LO c .NUm-.?*. L 0 C MUM- •* - N NC P E R t I ) 

LO c DEn = LOCOEN ♦ uO C p E P t J 1 




101 13 0 

101 15 0 

-i-04-l6n- 
101 1 7 0 
101 10 O ~ 


— 1 0 1 20o 
10122 0 

~lfrl-2-3 0 - 
1 0 1 2 4 q 
10[25 0 

1 0 1 2 6g 

-10I27 0 
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yE5SRU*MO«MAL,M0TvET IOI 6 O 0 

0 C {> (-34 • OP-T-T yP-f S-)-r-T-f- Mp4- 3->-» V-f4-trT+ 6 *-rf6&Q-&ST-| OpTl Mp-» 1-0 I 6 1 Q 


— t-O^lC-AL- 

I 


0PTI l 0PTJ’,OpT3,AN0R.1,TEMPaUAj,TCMPlUil,VAL<*<>» 

nThpO i^TMpUc »mT M p l c »NF ILT » I I ( 4 »••, JJ < 9 > f K K ( 4 ) , p c ( 4 ) - — 
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-l.J.*L T- r -l — *0 a- — 5-4 — Gf> TO-— 2-CUoO- . 
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000 1 10 


0004 R OOUU&l 

.0010 ol 1*37 

OOlO 0 1 1 6S0 
OOO* 000005 
0Q10 000316 

00 1 □ 011*25 

0010 O0 D 7 la 

-OOlO 000462 

□010 003726 

0006 000000 
ooos r ooaooo 
□ 007 r oouorjl 

0006 L n 00025 




subroutine -trite 

COmMOM/k FE-p 7 /— H 8 L ft N K * D-M F 4 L-^i U g Lk»«k E Y*H ES Tl-, hM-A-T-RtHG E N E-r H RAW* 

1 hR fc.T A » HS T ♦ HnE * mN Y QU t H R OQ T » MR °L L * H S 1 C » H S2 , H s ^ £5 » 

-2 f)0 « h x iHA!?T * H P - f U 5 * M DO T» H STAR jH'I'MCtHO E C » HC ity i H'GCjv * 

0 MAT r t hr ATE »HA c c ,hfpo « HFPN *KFPDM MIFGD »HFGN »HfPdO . 

-4 h NOrrr 

DOUBLE precision HbLANK.OHF I it 

" " C 0 n M 0 N ^ K E E p f—N F I , $TR 1 1 0 > .Stp < 1 0 ^ »PCT T 1 0 ) j M I rj M 0 J , H A X I 1 0 1 , Dp Hoi, — 

1 -pNipg ,P160 iYEsNYQ.STN0RD. 

LOGICAL T ESflyg »STNDrD 


1 0336 q 
103370 
I0333 0 
10339^ 
1 034 Dq 

-1 0 3r 3 o 
10344 0 
■1 0 3 4 5 D 
I 0 3 4 6g 


— 16 *- 

17* 

_| ft* 

1 9* 

2n*. 

21 • 

2 2 * 

23* 

2_±*_ 

25* 

2 6 *. 

27* 
... 2B* 
29* 

- 3 ft 

3 1 * 

3 7*. 
33* 
34* 
35* 

36 * _ 

37* 

3 8*- 

3 9 • 

..... 4 0*.. 


1 CARD I 20) » L A R E t ( 20 1 

CO»-MON/KrEpl6/'sTAf;EiKOOE»NRcLPL»NRpOLE:* N fiZEROtNxB»NXN»NXR. 

1 ! OPEN) JOPEM ,P V AR t pNOMiPCPL»PF-Ac ♦PSLOSH* 

2 yESMTx'YLS H Afl,YESsPP»nEBUG*LELT»YESpcH»YE5RLP» 

3 — — y £ S 5 R tf--* N O m N AL -j-N 0 T y E T 

LO G ICAt Y E SMTx»rESRA k ‘i,YES^RPiDEBUG*LFLTiYESpcH»YESRLP* 

1 Y ES?r?L *NOHWAL .NoTyET 

COhrtON/CPUO I f X * X , X 3 l 3 ) 

C D*x MOW^CP UO^/— G A I ns , N i AMP » N G NpK ,6'p t BO , M Y0 p T^. r A p R Q 1.50 )•» AD I R 1 50 > * — 

1 APH a (5o> ,Pr«« t 5 0 t f P A MPI50> , PD j « l *>□ ) ,PPH a (5q) , 

2 p.iI4_E.p..(3.0.) ♦E.hAkP t S^>.,.PH0XR ^04-»-S A-VP r Q (-1 5 0{H , 

3 SAVAMpllSaoJ»5AvpMAll5oO>iAHl.,AhPiBlGiDF(FL|FRtIM» 

-4 PER » pH A » PHL » R F- * S M A »ST A tST-O . : — 

5 lNT l LRf , RiMPPP,N£XT»Nppp,LMX, 

6 . — D ECRtPPI»E«P-*£RAH,ERpHtERGP->. 

C 0 m P L E X 6 M M S 

LOGICAL DECR*OPI*ERp»fRAM,ERpH*ERGP 

PROGRAM COOING 


1 format 1 * 1*»Mx» 20 A4//9x»2Oa4//?x»20a4/) 


p R |J4 T -F R F. a 1 1 E N C Y- 1 u T E R V A L S — 


4 6 * 

47* 

..a a.* 

» r> r A f, U o s T 1 c < 

4 Q * 

5 0* 

- Si* 


71 FOrmAT 1 3 < / ) , 9 x t 25 hFREquEnC y INtER v ALS • • ./44 X »8 H pER CENT.Hx* 

1_.7uM LrJ I : u i y .* l.IJ x * 7h M A X 1 MUM-ii 2 &h r\EI A I-L ^ ^X- 1 1 1-HS- T A R.T . (-C PS 1 * 7 *:* — 

2 IqhSTOp 1 CMS > » S X . 1 OHhAx • > fiC R • , 1 1 HP H A SE SH * F T * 6 X * 1 1 HPH A S£ SHIFT 

_____ 3_. 2 x - t -5 H P-R -I- M T 7 4--H — l : 

DO 22 N ** I ,NFI 

_jC.x*-SL_HA LX — 

TH £ TEST FOP EguAiJTy bEta^EN w 0N-1NT£ g ErS MAY NOT 0^ nEanIN g FuL. 

IF l Dp 1 M ) . IJE ♦ HULK 1 XXX“MASt - ’ 

72 ;/RjTrt^*?3) SfP ( N),sTp<M>,PcT(Nl,MrN<N } »MAXtN>.XXX 1 

73 n v (1 A T ltp£1?.Si3(rjB*5*frt7.GillX,At) 


10346 d 
103490- 
|0350o 
1 03 5 I o - 
1 0 3 5 2 q 
-10 3 5 3q— 
10354Q 
1 0 3 5 5 o -■ 

I0356 0 
..10357 0 . 
1 D356 0 
4 a 3 5.9 Q ._ 
1 036QQ 
.1 0 36 1 0 

10362Q 
. 1 03a3 0 - 

1 0 3 6 4 o 
-1.0 3 6 50— 
1 036 6 o 
1 D3&7 0 . 
1036fc 0 
1 Q3A9 0 ~ 
103700 

.4.03 7.1 o_ 
1 0 37 2 o 
-10 3 7 3 0 - 
10374 0 

-10375o 

10376q 
—1 0 3 7 7 Q._ 
103700 
. 1 0 3 7 9 q . 

10380a 
-1038 1 q- 
| 0 3 8 2 Q 
_4-0 3030- 

103840. 
1 D385 0 
10386 0 


SB* 

&9* 

6 n * 

6 I * 

♦DiAgMOSTIC" 

.... . 62* 

*o I agnostic* 

63* . 

6 H • 

.6.5 1 


fUM-NJ—E-X F c U-T 1 0-N — 0 P T -I-0 N S 

4LF.X6-, -J-O-i- 1 

30 FORMAT 1 ^/* ,9x.‘ 4 HnpEN,25x,&HPHAGE/8x» 1 «HLOOP,25x » S H-SH I F T . X » 

— ,l_ .7 u ny 0 u.i st *-3x • <+ -Hb0nF: / 9x-i ' 4 hg a i n ♦ 1 2x , 3 hrow.»2x ,3hcol.»5x'.»-**htesT-» 5x • 
2 *♦ h P L 0 T * A x » ‘I Vi PLOT / / J 

31 U(N> b HPLK 

X.34-U — *_H A S.T : 1 

the test for Equally retween mon-integers may wot be meaningful* 

— IF--JRN- »NK. -HBLK> - X 3{ 2) “-HAST 

the test fop EouAi_n Y a ET w EEN mon-thtegERS may not be meanINqFu*-* 

- - ..IF t P a •ME.- HBLlO x3(3).<* h A ST — .... - - .. - 

^RlTFt6»3^)NAME»IfiPENiJ0pEM»X 3 

-,Ua..F. Q i j_0.fi 2A/<. t -7. X -.2 l-5-» 3-LSA^J J 

RETURN 


1 03 8 7 0 

— 1 0 38 8g _ 
10389 0 
—IQ 3 9-0 0 - 
1 03?I 0 

1 0 39 2q_. 

1 0393 0 
1 0 3 9 H 0 .. 
10395 0 
— 1039 6g__ 


1 O398 0 

1 0 3 9 9g 

-ioyooo- 

icnoio 

■ J04020 


ENr) OF compilation: 


DIAGNOSTICS* 



12&-9. 


*FOR*US/.’ c^Wg»F.XCMg 
■■Fob- F.CiX«o5/z3/7B-08:52.So.S-4-|- r a4— 


SL'DROIITINE XCN6 ENTRY POjmT 000^13 

.... Si 0 R AcE_ij5CDi C 0 0 EXL.L_O. 4 QD 23.! — f> A-T-A XO-J — 0 n flO.flS..! — a Lft-NX— 0 N-1.2L -QOOQ 0 Q 

EXTERNAL REFERENCES ( BLOCK , NAmFJ 
0003 NE RR 3* 

S-XQ R AS E— A-5 S 1 -G-U- I E UJ .1 X ., TY fiFr-> — 4-E L-XT | V E L-0 C A I-j-Q^-N A H f ) 

_. do 00— non 001 -Injps — . — -ooq- 0 - r— ooooQo-z — 


00)01 — • -| • SUflJLO.i; L.U!£.._ XCtlS— l-X r Yl 

noioi ?. • c 

00 1 0 1 3* _C 

0 0 ] n ! **• c prugRam cooing 

— __-O Q.) .n i s« ^ : 

00103 &• 2 d x 

OD 1 O'- 7* x— ■ — Y 

001 05» *• Y = z 

00 1 Oh 9* R £.f_U R w 

00107 IQ* ENr , 


.. F M ft. OF C 0 - P I L A T JON! NO... 0 1 A N 0 S U CS •... 

v 


10Ro3 0 onoooo - - 

1 OMO^o oooorjo 

7 1 0N0&0- -UOOOOQ - 

ioho6o ooooon 

• 1 0RQ7-0 00 0 0 00 — 

JORO0O 000000 

10MG?0"" -00 0 00 I — -- • 

1 OH 1 Oo 000003 

104 1 1 0 — ooounH 

1 04 1 2 0 000022 



^F09*USfl r > F • zfepls 

for ?£|X.0 5/2 3/7 4. s -0BJ52:.1.2._{.2 r 3L__ 


SUBROUTINE ZEE PL S ENfRY POINT OO0O63 


ST0RlrjE l)SCt>? COOPIM.Oo on 7 0 . D a .T_A.t_0 fin 0 1H!. B L A N K„. c 0 M M 0 Nj.2_.Lj 0 0 0.0.0. 

^.TpHHO.y_HL.oc.KS.:.__ 


-0003 KEEP 2 0 00.0.4.7. 

0004 KEEPS 000 3 4 2 
f’Oos csuo 1 . 000 n 3 


external references <BLoCK, NAME) 


000 a 

t>00 7 

['0 \ 0 
0.0 1 |_ 


fnvous 

f J I 0 1 S 

•Ml 0 2* 
-MERR3S 


STORA'ir ASSIGNMENT (RloC*. TYPE REL A T j V E LOCATION,' NAME) 


c r, 

1 

t\3 

no 

r\r 


nQO l 
L'OQ 3 
0 0 0 3 
[)0o3 
n OO 3 
. 00o3 
nOo3 
’;0 a 3 
!! JQO 
MOOR 


000 0 l 2 
.00002.5. 
000033 
.OoncjRH 

00 do i n 

. 0 0 n 0 ,J A 

onoo 1 1 


> « 3 r , 
UASJ_ 

H c A 

•HF GN_ 


HGEME 
H N 0 M I . 
HR A 'i 

p_aooc)3o. hs.t.ar.. 
1 oo-io n j 1 
C 00000.0 z P ol E 


ono l 

Q.ou.3. 

0 00 3 

DUO 3 

000 3 

.. 00 U 3 

Onfj3 


000 0*) 3 1 26 g 
-UQJ lrL 3 -5_H.AXL 


0 0 0 1.) 3 2 HDEc 
..00Qq4Q_mFPD.- 

nnoo 3 i hInc 
■ OODo * 5 hNYOU.. 
0 0 >3 0 l 2 hrEta 

_o 0 a 3 o.o.un?a._H s l c_ 

nouo nor) 1 oh l 


0000 000001 

-00 0-3—0— 00 0. QUEL 


6 noF 


0003 
-. 0003- 
0003 

- .0003 

0003 

— noo3_ 
OOO.'i 


0000 2 7 hooT 
.-000 0 45 — Hp.pjDf). 
000005 HKET 
OQ0D23 

oaooi? hroll 

—000 0 2. J HR2 . 


I 00 D 3 4 I NZF’OlE 


000 3 o 000002 OHFILT 

-00 Q 3 - R —00 0 0 0 4. . HB4.JC 

000 3 00000& HESTI 

-000 3 -000042 -HFPDN—. 

00q3 oooooz HMATR 
0 Oo 3 p nO00Z6.. HPLUS — 
00o 3 0 0 (j 0 1 * hROOT 

-0 0 0 3 oOOO 2 2 ._hS.4b 

000 S r oonooo z I d 


000 3 

.0003 — 


000037 HACC 

-000 0 3.4-HCCw 


0003 

oaoo 

43 

hfgd 

-0003 - 

- 0000 

4 l 

HF p N ■ 

0003 

0000 

14 

HNEff 

0003 . 

. 0000 

36 

hrate 

00a 3 

000a 

1 3 

hstan 

43003 

— ooou 

24 

HX 

OQO** f 

[ 000 2 

Z 6 

ZM AG 


... ODini- 
00 1 n.i 

..... 1 •„ 

2 * 

DOini 

. 3 * . 

00 1 n » 

4 * 

oa 1 n i 



DO 1 n \ 

' 6 * 

no n 1 

7 ♦ 

00 ins 

0 • 

0 0 1 n i 

9 •_ 

001 n'z 

10* 

0 0 1 n^_ 

1 1 • 

no 10 ' 
noin' 

12* 

13* 

non » 

14* 

•no 1 « 1 

1 5* 

non 1 

1 6* 

*5 0 1 1 :» 

17*... 


s u n-Q 0 irT.I.n e_ 1 e cpL s 

C0„H0N/Kre P 2/ HBLaN<.OHfIl1‘,H0Lk»H K Ey.hEST!,hMaTR,hgENE,HRAWi 
.H^LTa . HSTAN t HNE w »hNy qu , HROOT.».hrO.LL »HsI C »HS2 ,HS*)b * 

H°»MX »HAST»HPlUS*MOOT,HSTAR .HIuC »H0EC *HCB,-HcCw» 

h- A .TT.,.HAAl.E.f.H.A c OH.FP0-»HF.pNxHFj?i^»HF.Gi)..H£.<i^.,.HFpD.Q*_ 


*) H <4 0 M I 

DO U QLE. PRECISION Hbl A N* , 0 HF. \ L T . .... 

COMMON Z<EEP*Z Z^0lE( 7 5).ZMA g (75),N2P0LE 

—complex: ZPOlE 

ComMO n /CRUO|/ Z I D { 75 > 


PROGRAM, con j m g 

IF 'tlZPOLE.EC'O 1 
DO 10 1 = 1 ,m ZPOLE 

Z I r» ( if ..".-HOLS 


4 04l3 O - 

104l4 0 

l 0 4 1 5 0 
10416 q 

JLP.4 1 7,o_ 
104 ja D 

10420 0 


10423 0 

-j.a*i2Jto_ 
1 04 2 Sq 
.104260 
1 0 4 2 7q 
1 042B o 
1 0429 0 

— ,i0430a ■ 


- OoOOOO 
oooooa 
oaoooo 
000000 

000000 . 

oonooo 

000000 

OOOOciQ 

. -Oooaoa. 

000000 
— dooqqh— 
000000 
. 000000 
oonooo 
0 0 c 0 0 0 

000004 

-00001 2. 


RETURN 


1 F I 7 M A G ( 1 ) .Lt* O.OOO 1 > ZIO(l>«»HPLUs 

j-f — ( 7 M A G ( I ) - tGT‘-|'« 0 )— Z IOHt^HST AK 

io continue 

f, — t-^-p-Q t-E-4-S-l-T-Z-H A G ( l-l -. y BHM* ! ,N Z p - C>ti E * • 

6fl0 f0oMAT('l'»2^,'0 P E N LOOP pOLEs I N T H E z 
1 o -n-M- A ] N *•//? I XyM Z^RO. 0<?0 e r. Hf)LO N E G L E^T t°~* * * '" S TA R ' TH D I C 'AfT E S — 

2 n A (j t4 1 T uOE 0‘jTSlDE 1 ( nITy C1« c LE ,»//1 Sx*M PLu s INDICATES mA S NITuDf 

ZJ.< J T H I N O^rrnn J an p TErm OE LfTED-- FROM--*- --DO M A I n~ T R ANsFEr -f yNC T I-ON-M- 

4///43X . ♦ POLE * » 3**X , »hAgN I TuOjr * // 

^3-4 X -r*~» £-Mr*->-4 -h X t --J-M-a44 U A R-T-JV-y (-3 q x-,-1 P E j- 2 -!> , 1-9-X-,- pH -2 7 ^ 

RETURN 


104320 


1 0H3 6q 
- 1 0 4 3 ? q 


compilation: 


frzi-9 


T'FORtUS fIzeWF.F^ZEROS 

FDr re 1 X -o 5/ ? 3 f 7 4 »08 • 5? : 2 4 ll,7> 

* 







* • 


sibroutinE zeros entry point 000033 






. *? r a o e_i;s ro : co dju. 1 . JL o o P. fl ? V : ' . . o a T A. *. q . t j o . 0 o. 1 .o_l_b l any ro hmo n..(. 2_ L_ofl£ od.q 

_ iO M M a N 3 lQ. c K 5.1 1 

_ )0Q3 .„._KE£P6 CU.ai.3Jt 

0004 KEEP9 00Q7QS ' 

— 3005 kECPIS 000260 — 

0006 <EEPt6 000n3J 


E.<TEPWaL REFERENCE S . J..B LnCK , NAmE >_ 


. 1007 . _ C OHPU.T 
1010 nERRHS 

,_3 0 u ne rrjul 


5 f Or A Gf ASSIGNMENT t PLOC K » TYPE, RELATIVE LOCATION* NAME) 


nnoo l 5 1 oool 
a a Q L 3 a_ar sj.&l ' .„ 

000132 FMT 

000 l 0 7 10 G 

000001 KOOE 

. , . 000D2 3 LFLT 

l 0 000 2 7 NOMMAL 
... i ... n tjoon 4„ j 1 r 2 E 
OOOOl'i PFac 
c .. OQO000 region . 
no 1.1 u 0 n title * 

L. .00001 7 YESmTX 

L 000021 Y ESS RP 


0001 onooo** ji^g ooa 3 oooo 6 *) Caro 

jQaait... l ocjg 2 .2 — 00.0 3 — . 0 0 

aoo 5 Oa0l 6 2 F 6 OaoS 000l 6 3 < F 7 

_qo.o 0 ao q. 0 . 0.2 — M 4 j p. * — . — ao 0.6 0 odd t o. .1 op en— 

an03 I 0003 lo LABEL 0005 I OOOl 64 L Af} £l I 

. 0 Q 0 9 . 000‘l 5 5— NA 0003- R 0000 6 2 NamE— - 

ooo* l oaoa 3 a noTyEt ooom i ood4 56 nr 

.no D 6 .0.0.0 0D_3_>J XB 0 0 0.6. 0 0 a D 0l_N** 

Ooa 6 OOOo 13 PHOM 0 00 6 00001* PSlOSH 

0 01)5 13 0 0 Q 3 Q R! D 0 00 4. X— 0 0 0 0 0 0 ROO-T- — i 

00 0 3 000024 TlTLEl 0003 000Ci36 TjfLE2 

0006 ..l_ 0n0j2 4 .YESpC.H 000 6 L 0 D^O 2 q „ f £ &K A W 

0005 OOOQ2 0 YINC 


oool 16 CPSLBL 


1 ooaaoo 
io oo a 1JL 

pOQ 2 1 o 

000454 

000002 

0 00 0 0-7 

0000 1 2 

coao l *7 

cooa5o 

L . 000025 


JOP-EN..- 
LA8EL2 
NE IG 
NRCLPL 

• NXR 

PV AR 
.SPACE.— 
T ITLE3 
YESRLP 


0005 
0005- 

0no5 

0004- 

0005 
0009 

0006 
0 0Q6- 

0005 

0006 

0 005 
0 006 


000024 
— -0001 46- 
000 loo 
000572 

000234 
000457 
aoooo 3 

0000 1 4 

000034 

- oooaao 
ouoo i a 

L QO0O26 


DA 

F M AT 

IDB 

KD 

L Ab EL 3 
N I 

NRpoLE 

PC PL 

p 36 

STAGE .. 

A I DTH .. 

YESSRL 


0 I 
03 
0 3. 
0010 4 
0 0 jn.i_ 
00 1 0 6 
no j * r 

00 3 07 
CO 1 0 7 
DO | 0 7 

00 1 n 
00311 
001 3 l 
00 1 1 1 


- 5 U a R 0 (j T I H £_.Z E RO S J *JL. 1044Q 0 0 0 0 0 0 0 

COmMOn'KEEP 6 '' TITLE I 20> *T1T L EH 10) ,TITLE2( 10) .TITLE31 10) inAmE<2) , 10441 0 OOOOOO 

1 C.A Ro t 2D ).jLAB.E,J.20 L_ 1-0 *+4 2 0 0 0 0 0 0 0 - 

RE A L NAME ‘ 1 0 4 H 3q OOOOOO 

rnMMnM/KTFP9/ P00T175) ,FA<7 g? f N Elfi.NA»Jj RjJAl 175) ,ICDl75) LILliiil 0 00 0D.O 0- 

COMPLEX ' ROOT.EA OOOOOO 

. .CO.ht a .0 N * K.E E P..1 5 / fi E e 1 a M < 4 ) , \% 1.0 1 Hi 4.1 . S P A C.E * A > V 1 N C ( 4.1 0 C 0 0 0 0 

1 0 A t 4 } ,R I 0 t 4 ) ,o36 ( S6 ) , I f)B 1 7 ) , loo ( 7 ) «CPSLBL ( I 0 j » ' I0448 q OOOOOO 

2 0C81.BL 'D^OLaL.FMTM 2) ,FMAT ( 123 ,F6 ,F7 /LABELlI 20> , .... 104«49 0 . OOOOOO 

3 L A BEL2 < 20)»L A nEL3l20> 10450 q 000000 

.... COl-..P.L£X r rEG J o f ! - — — — .104510 .OOOOOO 

COs:MON7^EFpl6/s T ApE«KOOE» NRCLPL. NR pqlE»NR2Ero*NxB.NXN i NXR, 104S3 o OOOOOO 

1 _____ I Opr •! , J(H>£ N , P AR . pUO-i , pc PL , PFac • PSLOSH » 10 H 54 0 OOOOOO 

2 y ESmT x ' YESR A.f , rESr. RP *DE«UG »LFL'T iyE5PCH*YESRlP* 10455 0 OOOOOO 



i-OfrXCAL- 


yessrl*momNal,notyet 

Y-Es T-X * Y E S « a Jl , Y E S s R p ♦ &E BU S- » L F L T * Y E S P C H * Y E 5 R LPt* 

yEssrl*nomnal,moTyET 


-i;AL<-UtA-T- e T h E — OP E N ■ L 0 O P— 2 E R 0 S— 


• N R-/-E R 0 

ID I a l ,20 

call coMPUT<5iaoo> 
return 


ERrOR in COMPUTING the OPEN LOOP zeros 


lono continue 

re-tusn—1 

ENn 


1 OHS Aq 

— 10H570 

104S8 0 

4-OHA5q- 

10H66q 

1 0 H 6 7 q- 

I DH60O 

1 0 H 7 2 o 

1 0 4 7 3q 
1 0H7Hq- 


J0H77q- 

10H76 q 
— _ 1 0 H 7 9 o 
104800 
1 048 lo- 

1 0 H 8 2 o 

10483 d . 

IOHSHq 


000000 

—000000 

ODOOOO 

0-0 OE) 00" 

ODOOOO 

— aoouoo 

OODOOO 

- — oooaoo 
00 000 4 
— oooooh 

OODOnA 

0000 1 1 

oooo I l 
— onooi i 
ooo an 
— oooo 1 I- 
0000 1 5 
- - OOOO 1 5 

OOOOHO 




:.N ~ F- CO -t P 1 L A rXXXU-1 HO gJLA^j. w O-SX J . cs«- 



• 922-9 


3 F DR # U 5 A r • 7 "r« F • Z Tt? AN 
F 0 R . 4 £ J X n 0 5 ./ Z 3 lL 7.4 - 0 .B 4.5 2 L 4 _l 


SUBROUTINE ZTRAN 


Entry po int • 00 1 1 2 p 


STORAGE U S E o • _ c o 0 E. U !. P.Q ll_4 1L...Q -VIA < Ol_CLa OJLAA. ; ..BLANK_C-OJ1rt.Q.N.< ? l ODDODD. 

common qlQCk-S ; _ 


.1003 ...<F.EPS . OOnn 7 4 

1DQ4 SEEPR 000342 

1005 < E E P 1 *4 000031- 

1006 KEEP20 000227 

„)0 0 7 * EEP 2 1-00.14-30- 

1010 CKJOl 000043 

30 11 CR0D2 001215. 

ioi 2 ckooh 'nonno 2 


EJ T E E - 1 4 L_. RE E.E P.E.N.C £ S_J BLn.CS.A- I &mE).. 


0013 

10 t 4 

10 1 5 
101 6 
.JO 17. 
0020 


fH'OUS 
n 1 0 2 <5 
E <P 
COS 

-S I'M — 


CSORT 

.10 21 C AH S . 

)0 2 2 NERR3S 


.5 r 0 R A Sf._ A 5 5 I G NME NT <Blnr^. TypE. REL ATIVE LQCa Tiq N » NAM E.L 


•iOq t 

lOQO 
•)000 
'lOoS 
_J 005 
1003 
00 0 7 
’)Oo 7 

10 J 1 

oOjS 

-Q 1 0 
onj 5 

10 1 o 
10 1 0 
0010 
JP09_ 
00 fo 
0 DO 3 
on i o 


onno 53 

non ooo 

000056 
01)00 7 5 
..0 0 QH LA. 

000073 
000 7 q*4 

n o l o 2 o 

no i 2 1 ? 

000027 
0 .1 0 0 2 0 
n f) 00 3 5 
n.-) Oil 7 3 
000075 
000002 
oano i i 

-Q0Q0Q2 
0000 3 2’ 
o o o o n 5 
o on n 'i 2 


»nt„ 

6 00 F 

& 05 f. 

OEg 

n.1 


ngo.L n 0 0.333 j pp.L. 

oood 1 1 60 1 F 

- . OOOO 6 . 7 -. ^ 0 ^F 

R 0000*2 DO 

. c-.Q. o.u.u.Q o_f.sxj_ 


...A 00.1 00,0.5 >3... 1.1 OL. 


. 0001 .. 


GPR T NT 
LOCOZ . 
NO C 7 
MUrtpOL. 
N 2 

„PJ 

« On 1 
'« P l . 

R 5 

TERM 

T 4 

.ZH 1 _ 


ZOh 1 * 

Z T V A L„ 
Z 4 K 


0000 
0000 . 
ono 5 
_GQ.O.A_ 
ono 5 

oou. 
0012 
0007 
onoA 
..png 5 _ 

0010 

n 

OHIO 
.000 5 
00 1 0 
-Q 0 Q 1 - 
00 10 
no t 0 
nn 10 


c 00 00 00 HALF 

.1 ._0Q 1 2 1 3... 1.0C N— 

0 □ 0 g 0 0 e g Z 

I 0 007 0 2 pjoMZ.. 

0000 3 0 !J 3 
n 0 O q_2 1 j» | 2 

o ri00j J 6 p 0 H 2 
R 0 0 0 0 2 1 ... > 1 1 
p nnOo ^ 6 r 6 
C. dooqQ^—tmo.... 
R 0000 12 t 5 
R 000 226 7 mA£— 
r onon 3 3 ^ohb 
p OQOO 1 3 2 1 . , 

<1 11 non 1 7 7 s 


.._ 00 U 6 ^..,l 50 l 

0000 000022 6 o?F OOOO q 000 3 3 6 q 3 f 

0000 000.1 OlJ._ 6 .n'F. OOoD ooal 1 2_>0 9 F 

0005 R 000013 01 00 Q 5 .R 000014 oZ 

_ 0.005 C 0 0 QOJ..OL.F If . 1 -E.li- aaoS 0 . 000 . 17 — F.l FIX— 

0000 oaoi 3 o iwjps 000 3 paoo 67 ithZT. 

0007 . ..I. 000703 _LCcNZ 000 3 _l _00007 2 MOOlF-Y- 

OOOA I 000226. N£ S T2 oojt J nOU 7 *4 igNCPER 

ODQH ...I .OL) 03 h 1 N^pOlE OOO 3 — 000004 NZT _.. 

0005 c 000002 ONE OOtl R 000310 p[) 

poll r npnoo n pjj.m ono 7 p qoooo.q „ p m z 


nun r oood 37 roh 3 

0010 H .ODOO 7 * RZ 

0 0q5 000022 SMALL 

00 1 Cl. .R 000D0 6..J 1 

00 1 fl C 000000 VAl. 

-DQin B aa QO 2 7_z 0 h-L- 

OOln R ooao 31 ! ZOH 4 
.0010 R 000011. Z2 
no i n c onnooi z e> t w 0 


0010 R poaoRo roh^ 

00 10 H -.000023 R 3 
oon3 H ooonno supErk 

0010 . R. 000007 t 2 

0012 i_ OOOOOt YESZM 
□ D ig P n Q 0 D. 3 J 3 _2 OH 2 

0004 c ooooao zpole 
0010 . r . 0 0 0 U 1 5 z 3 • ..— 

0010 R 000020 Z A ’ 


-0001 000150 

0000 aonons 
0 0 0 3 . ,.j_ OOOO 7 1 
aoo 5 oaoois 

43 DOS C — 0 0 0 0 0 - 6 - 

OOM | 001211 
□ ol [ . 1 001077 

0007 1 0 DO 7 0 B 


00D5 

0007 


000026 

000341 


0 Q Q 5 000024 

uutn r ou u 04i 
0010 R 000024 
uoo 3 oaaoo3 
0010 R 000010 
0003 l 000070 
.□atin_R_QOao 3 i- 
0003 R 00000 1 
0010 R 000016 


50 [_ 

^0 4 p 

doth 

D 3 

FOufj 

LOCO 

NDCPER 

N N C Z 
Nl 

POZ 

RAodFG 

ROhS 

R 4 
TO 
T 3 

YESZOH 

-ZOMJ 

ZT 

Z 4 





1 a* 
— 1 1 

12* 

- 13* 
H' 

— is* 
14* 

1 7* 

in. 

! 9* - 

2n • 

2 \ * 

2 ? • 

— 23 • 

24* 

— 2 5* ■ 
2 6* 

2 7 * 
zn* 

2 9.t_ 

3a* 

3 1 *. 

32* 

. —3 3* 
34* 

35*.. 

36* 

. 37* 

3n* 
39*. 

*»n* 

Si *_ 

4 2 * 
4 3*_ 


5U fl RiJy.T) |,u ( 7-.. z ..TR.*fiLt M .T«NC»RT'?<KT* ,RRR iSS I * 7 “ — 

COMMON /KPEp5/ SU-P(TR< *21 »2m»TO»NZT , 2TVAL (Sd) , 1 ThZT , YE520H »BOTH* 

J. M'O’D j (f-Y- i &P R 1 ^ T ■ -■■ •' 

ItO'K »C At Y £ SzPH »30TH»hoD !Fy • 5PR 1 NT 

. - - ’ c ^HO-v^P- g p*-/ — p OtrE ■ ■ 

complex zpole 

.-Cf)MMO M ^K FE .E V<t /MALF l oN£ »T a O »F°UR »*' 1 FTEN « °0 , D J-.Oj^O 3 ( 04 , f j F r V , P * , 

1 pl2,^!t A LL*Rpl«WAr) n itGihEci*Nl»N2»N3 

C 0'i PL F. X -H A L F » 0 N E * T -V 0 * f 0 u K » F I F T E N — ~ 

COMflON^K!FFp2n/r*.STz<7St.iNEsT7 

corPtr* -e srz — 

C 0 m M 0 j,, / K £ E P 2 1 / P N 2 ( ? 2 & ) ,P&Z 1 ?25 ) ,N>HZ , L OC t4 Z , LOCOZ , mnCZ ( 7S I t NOCZ t 75) 
COmHON^CRUOIV- V AL i T6 R H »2 s T‘Vo I - - — • " ' 

1 Tl.T?.T3,T , l,T5, 2 l,z2,z3,Z t *»z5,Z 6 »RUR2»R3,RH,R5 t R6 t 

-2 Z°H 1 * ZOh? ,Z0H3 , Z0H J * . ZOhS * Z0H4 , 

3 RllH l , F?0 h 2 t ROH.X tROw 4 t ROM & • Z^N 

conP-L-e* vAL-»-teRm • Z^r^n ~ 

cn ( . 1 nnN / Cf?l|0 2/ pNU ( 200 > »PD < 3n0 J iMNCPER ( 75) *HycPER { 75 > i 
1 — NUHPOL «LOCN » UqCD ■ *- ~ 

C OmMO^ / Cf?UD 4 / uE^Z.yEsZM 

LOc, ICAL ~Y £ S 7 M 


~\1D6 36 q~— 
J06 3B,0 
-*06 39 D ~: 

-4-0 4M2<3 — 

- 104S&0- 

1 04H 6y 


if Sprint > wr i te t 6 ,*on > r Tr i rt t * rsr»rsi 
.A no. FORMAT < /.//.|nx-*l-FF I ?*-5 , Sx • E 1 ? . 5 , 40 X- r -'- RES I DuE-S* 2 < 5 X ,£4 2*5)4-- 
I F t N J rt C • F *'• 2 ) GO TO 1 U 0 


q_E A— L — -M-..0 - N ... «-Z—g- R -0 p -0— 0 -T- 

1 1 •superk*-rsr 

Z 2 » DO 

ZM c -EXP|RTP*zT) 

JF tn.nim GO T 0 -4 0 — — — 

uZpOLF.'NZpOLF* 1 

Z*4;»-ZH.. 

ZPoLF t NZPOLF > “CM P). x ( ZHN ,0.0) 

z a ag i-n '£ B oe-S- ) — »— A j >-*h-2 — 

10 CONTINUE 

: I F-4 YF.SZOH»-G0 -10-50 


1064*0 ~ 
10450 0 
I045lo- 
I0652g 


1O650 O 
IO 66 O 0 
106610 
10 66 2,) 
_|0663 0 ~ 
IQ664 0 
l 0 6 6 5 o 

1 0 6 6 6 q 

i D 66 7 o 
106600 
- 1 0 66 9 0 
106700 
-106710 
1 0672 0 
■1 0673 d 

1 0 6 7 4 o 
-1 06 7 &q- 


PRINT 7. COEFFICIENT 

IF UpKIMT) *iff| T E < 6,601 > Z>.Z2, 7^*74 
.6iU_FO f< MAT.!/5 l .x ,.iZ...MUM ’ , 2 < 5X , 1 P-f 1 2 . 5A/.S 3 x , * DEN * , 2 A-Sx »El2.&) 4~ 
R 1 =Z 1 

R2.24 

R 3 a Z 3 + Z 4 


print r coefficients 


- 1 0677q 
106700 

• 1 0 6 7 9 o ■ 
106000 

1 06 9 2 o 
...106830 
10664o 

—1 0 6 B&q- 
1 0 6 0 6 o 
— 10 6 3 7 Q- 
1O6B0O 
... 1 0 6 0 9 o 
106900 

— 1069 1 o 
10692a 

— 1 0 6 9 3 q_ 
] 0 6 9 4 o 
—106950 

1 D696 0 



- 6-228 


.00 I 4 “ 5 ^. 

00 1 7 0 59 * 


U D J 7.2 60 


00 J 73 

A 1 • 

00173. 

62* . 

0 0 17*. 

A3* 

0 3 17'- 

AH * 

00 175 

65* 

0 0 1 7 C 

6 6*_ 

DOI 77 

67* 

00177 

6 S *_ 

00 201' 

69* 

0020 ! 

- - 70* . 

00 2"T 

71 • 

C02O2 

7.2 *_ 

0 0 20 |J 

73* 

00205 

7«* 

002O< 

75* 

. . 0D20P 

7 6*. 

00206 

77* 

00 2 0 L. 

70 *_ 


C 

_ 1 F — Lr,p.k LfJT J- y.R I-T- E . U « A 02.1— R-l^RZ-t-R *-R 4 

6D2 FORMAT 1 '5 j x . *R NUM * , 2 I 5x . 1 P E | 2 , 5 > >*5 3 x , * DEn * 


c the following is used for nyquist analysis 

C H U II t R A T 0 p f ^ r p F 1 r I E N y s 

:LOc n -5- LOCili ...+ _i__ 1 

PMn t L 0 C M ) » H 1 

L-0. C -JL_-?_U-0 CJi— •». -I 

PNm <lOCm) a R2 

— _ — C — 4VE.HU M pi AT OR c n E.FF- 1 CLI-F-mTS 

LOeD*L0CD*I 

— PO <LOCDl- R3 

UOcO ®< LOCO ♦ I 

Pli— i-U)CO-l •* R..9 

MNC p Ek t MIJPPOL ) 3 ? 

NDcPEk < fin m (» 0 L I. 2 _ 

RETURN 

C ZERO o R 0 E R HOLD SELECTED 

C 


D D 2 0 7 7 9 

. DO 2 l f. .... BQ 
. DO?ll 6 I 


SO CONTINUE 

Z 0 h 1 ” 7 1 

Z 0 m 2 C - Z 1 


.2 ( $X »E1 2.5) ) 


0 G ? 1 ;• 

ftp* 

002 1 3 

83* 

DO 2 1.3 

_B 9 •_ 

, 00213 

R 5 * 

-00213 

fl 6*. 

00 2 1 3 

8 7* 

nOZi «■ ... 

a«* 

3 0 2 2 3 

R 9 * 

_ 002 2‘- _ 

9 o • 

0 0 2 7? 

9 1 • 


..... . z n h 3 a z 3 
1 0 H *♦ * Z ** 


c 

...X — . p R .1 N T__Z 0 H- • C ft F F F J -C-I-E N.T s ... 

C 

.... IF t( 3RR I UT > .i'JR I TE U , Aq 3.) . ZQHi »Z0H2 , Z0H3.Z0H9L 

*03 rp&HAT 1 -'99Xt f 20H HUM* |2l5x»lPE12* 5 >/53Xi * D E N * »2(5x,El2,S) ) 

RO H 1.5 ZO M.I -2.QJ1.Z 

R 0 h 2 s z 0 H 3 ♦ z ft H 9 


. 0022 ' 
0022A 
00 22 1. 
00226 
.•-00 2 26 . 

00227 
. 0023 ^ 
002 3E 
007 

0 0 2 3 5 
00?3« . 
00236 

00 2 3 7 
0 0 2 3 7 
. 0 0 2 9 0 


92 
•93 
9 9 
95 
—9 6 
97 
9 ft 
99 

;7oo 
101 
.102 
103 
1 Q ‘* 
105 
10A 


.fiOH.3*ZO'l3-ZO.H?t. 


PRINT ROh COEFFICIENTS 


IF (GPRINT) K'R|TE(6 ( 60*i) RO h 1 , Rr ,H 2 , ROH 3 
■AoS-FOrMA-T ' mum ’ ., .5 X. 1JV 12. .5 /5.3.x ’.OEN.!. , >.LS, X ..-E 12..5 I.X 


the following, is uSCq. for nyqUis.t.. analysis 


c 
c 
c 

-C N U.H E-R A-I-O-R — C ORFF' I Cl ElLT.q 

LOcN = to CM ♦ 1 
.. -PNN- I LOCN). = ROM 1 

c denominator coefficients 

LOcD » .L.OCD 


0029 1 

00292 

107* 

1 0 6 ♦ 

PD <LOCD> “ ROH 2 
| flgf> e Ln rri * 1 

n 0 2 9 3 

109* 

PD tLOCO) = R 0 H 3 

00 2 8 1 ' 

l in* 

NNfPER 1 N'JMPOL * “ 

0 0 2 9 1, 

in* 

NOfPFR ( '(((''pOL > * 

00 2 4 t- 

112* 

IF < 7 m Ar, < :;7f»ftLF > . 

0 0 2 5 f 

M3* 

A; U I ■■ Z « i-l ( } V V. ♦ i 


.OR. .NOT. yESZm »•: RETURN 


10697 0 000075 

1.0&9A g Ogo 1 00 

I 0 A 9 9q 00 0 1 1 3 

l-CLZ-OCg On 0-1 4-3 ______ 

107Q 1 o . 0001 1 3 

1 0 7 g2g 000 1 j3 . 

1 0 7 0 3 q Onn I 1 3 

i. 0 7 0 9 g 0 no 11 3 

1 D 7 0 5 g QPO l 1 A 

10 7.0 A g OQO 1 2 t 

107 0 7g 000123 

4 0 7 0»q 000 1 23 ■ . . 

1 0 7g9g 000126 

107 1 Oo 000 1 3 I - ~ ■ - .. 

1 07 1 1 0 0 0 0 1 3 *1 

1 07- J 2 g 0 goi3 7 

1 07 1 3g ogo i J 

1 0 7 J 9 g 0 0 0 19 3. — 

I 07 3 5g 000199 

107 J Ag g 00 14 9 . 

1 07 1 7 0 000199 

1 D7 ] 8q 0001 9 9 ! 

1 07 1 9g 000 150 

1 0 7 2 CJg 000 150 — — . 

10721o 000151 

-10722Q - OOD 1 52 

IO720o 0001S9 

1 — 10.7 2 9 o Q o 0 1 5 9 

1 0 7 2&0 • 000159 

10726 0 000159 

1CI727 0 000 1 59 

107200 OnO 1 5 A . . .... . 

10729 o ,000171 

1 0. 7.3 U o — — 0 0 0 17 1 

1073 10 DOO 1 7 H 

1 0732g 000 1 7 7 

10733q 000177 

1 0 7 3 9 Q 000177 . ... 

10735g 000177 

4-OZ 3 6 o 0 0 0 1 27 

10737q 000202 

a.073Q 0 0002 21 . . ... 

1 0 7 3 9 0 000221 

1 074Do .... 00022 1 

10791q 000221 

1.0 7 9 2q 0002 2 1 1 __ 

1 0 7 9 3g Ono 2 2 1 

1 0 7 9 9 o — 00022 9 

1 0 7 9 5 o 0n0229 

1 D796 0 ... 0 00227.. . 

1 079 7 q 000232 

L.Q7 9 8q 00 0235 

10799q 000237 

i Q7 50g 000292 

1 0 7 5 1Q U 0 0 2 9 9 

... 1 0 7 5 2 g 0 002 9 A 

UOO 2 A 3 


.cm 

+— 

ro 

ro 

KS> 


OO75 ] 

002c, 

0 0 25 3 
_002S*+- 

0025?. 

- 0 0 2 5 u _ 

00 2 5 7 
0026^- 
no 7 ft 1 

-002ft?- 

002 ft 3 

■ 00244- 

0 0 2 6 r> 

- 0 0 2 A 5 - 
00 2ft % 

_oo?ftru. 

0 0 2 ft r» 

- n 0 2 ft -u, 
002ft 'f 
0027H 
00?7 1 

— 0 0 2 7-4- 
00 27 0 
0027 r. 
0027* 
00277 

003T1 
— 00304— 
0030.! 

00301 

0030'« 
_ 0 o 3 0 6 . 
0 0 3 0 7 

- 00314- 
0 U 3 1 l 
0 0 3 1 .» 

003 1 3 

- 0 D 3 l 1 
0 0 3 15 

D D 3. 1 3l_ 

0031 7 

. 00 3? :i. 

0032 » 
.00331 

003 3* 

- 0 0 3 3 »- 
0 0 3 3 > 

0033 ’ 
003*3 1 

._ 0 0 3 4 1_ 
003 4 1 
— 003 « l— 
003*4 l 

0 0 3 '4 ! 

0 Q 3 *4 ! 
00 35 \ 
0035 ! 


1 5* 

lft* 
17 *— 

10* 

191- 

20* 

? 1 • 
22 * 

2 3*- 
?4 * 
25* 
2ft* 
27* 
28* 

2 9.*.. 
30 • 

3 1 * 
32* 
33* 
34* 

3 5*- 

3 ft* 
37* 
38* 
39* 
HO • 

H \ 

H 2 * 
M3* 

H H • 

4 5 •_ 
H ft • 

H 7 * . 
<(«♦ 

H 9 * 

50 * 

51 • 

5 2 * 

5 3*.. 
5 H • 
55* 

5 ft * 
57* 

5 5* 
59*.. 
60* 

ft I * 
ft 2 * 
63* 
64* 

6 5*- 
ftft* 

6 7*. 
ftH * 
6*9* 
70* 


NNCZ < n um 7 > * 2 

1 -0 c-W7— --trO CrH't — * — 1- 

■ PNjjCLoCM?) = 2 O H 1 

pNZ(LoCMZ) » Z0H2 

ftfOc-itt-NUMj-v- m—2 

L 0 C 0 7 c LHC07 + 1 


-pO? < L-CC 0 71 -*® - 2 044-3 

LOcOZ « LOf 07 ♦ l 

PO ri-t-O €rO-?1 — =r— -2-0*4 -H 

NEsTZ = ME 5 TZ ♦ 1 

E-5T 1 1 NEST*)— ZPOtr+NZPOLE-1- 

RE7 URfj 


~C — 47 — H — ■ P ■ ■ 1 . — F X" 


44— 0 - 


-Z — E — K — 0- 


-R — 0 - - Q - — 7- 


-IOO-COp-T-InUE — 

T 1 “ E*P < RTR*ZT * 

- T-2 «-nl - — 

T 3 « AUS < RT I > *ZT 
T-H— = ~ty?, <* r? S — - 


T 5 a *0?*RS1 *T2 

-I F— 1 RT I *1. T . 0. 03— T5s~T5 — 

2 I nSiJPEPKUS 

72 = SUP E 9 K «-( T-5 * T-J ♦ SlN<T 3 >- 
Z 3 m DU 

-2 H~s- 1) 1 


-TH*T-1*C05(-T3M- 


10755 0 

-1075*q - 

1 0 7 5 7 q 

_l_C 7-5 6 0 

1 0 7 59q 
l°7ftQQ •- 

-107620 — 

-l 0-2 ft H o 

1 07ft5o 

1 07 6 7 0 

10769q 

-10 7-7-0 0 


Z 5 a - 02 *T 1 *C 0 S 1 T 3 1 

Z ft— £XP- (.n2*R.T«4»Zf->- 

IF (OOTHi 00 TO 110 

— V A e B Z5**27DH-.«- 7 ft 
TERM » CSn9TtVAL> 


— N 7 P O k- £ - u 7 P 0 L £-*• I — 

* Z 5 T -V 0 = 7 5 i 0 2 

ZPnLE(NZr>nLE >»"2 5 T* 0 *TERM. . 

* 2 MA 5 (^iZp!*lLE , a CAr 3 ^(ZpOtG{N 7 POLF>} 

._.*Zp 0 Lr s N 7 P 0 LF+l 

ZPoLE i N 7 P 0 LE > = -Z 5 t».- 0 -tERM 


1 07 7 3q 
1 0 7 7 Hq 

1-07 7 60 - 

1 07 7 7 0 
10778o 

.-10780o 
10781Q 


1 10 


-2 M A G < HI PQ4-E 1- s .... C A^-5XZ P-0^UJsL 7 4MH_-F -U 

COmTImUf 

IF (YflSZOH) CO. -TO — 150 

IF (GpRlNTl V‘( R { T E ( A , ft 0 5 1 Z 1 , Z 2 . 7 3 ♦ Z4 . Z 5 i Z& 

.ftOS FORMAT < /5 ix ,.!7_MUM.V,315 x. 1 P F 1 2 « 5 > ^"53 X * I&EN* ,1 1-Sx i.E4-2*5J4. 
R I = Z 1 ♦ Z 2 

H Z- *— 0 1 *-7-! 

R3 = Z 1 «Z 2 

R 5 a D 2 • Z *4 - 0 2 * Z A 

.Rft.Z5-Z5*Zft — 


PRINT R COEFFICIENTS 


jE 1 15 P N 1 M T » V R I r E ( A , 6 0 ft > rI,R2»r3,rH,r5»r6 

ftnft FOpMAT * /5 1 X * ’R HUM* ,3I5x»1Pe1?*51/53x, *OEn’ ,3-<-5x ♦El2.SU- 


1 07 83 q 
...1 0 7 8 H 0 
1 0 7 8 S 0 
l 0 7 8 6 q 
I0787 q 
— 10 7 8 8fj - 
1 0 7 6 9 y 
107900 
1 079 1Q 
_1 0 79 2 □ 

1 D 7 9 3q 

— 1 0 7 9 H 0 ■ 

1079B 0 
.. 1 0 7 9 ft o 
1 0 7 9 7 q 
10798y 
1 0 7 9 9 y 


0002** 
-00027 1 
00027H 
-000 2 7-7— 
000301 
-00030H— 
000305 
000310 

0003 l 3 

-000 3 1 5— 
000320 
00 D 3 2 3 
000327 
000327 - 
000327 
-000327— 
000327 
000333... 
000333 

00034 I ■ 

000343 

00034ft--- 

0 0 D 35 2 

000 3 5 & 

000364 

0 n 0 3 ft 7 

00041 0 

— 0 00 4 1 2 — 

0004 1 4 

000420 

000430 

— 000432 
000440 

000444 - 

000447 
00 0 4 5 3 
OOCJHft I 

000470 

000475 

0 0 0 S 0 4 — 

OOOS l 3 

00051 3 

000 S n 
OnoSjl 
00053 1 

000534 - 

000537 
0 0 05 4 2 
00054* 
000554 
000554 

000554- 

000554 

000554 

000560 

000575 

000575 



t 7 1 ' 

-17 2* 

1 7 3 ♦ 

4.7.5 * 

1 7 S • 

„ 1 7 A * 

1 7 7 • 

170* 

1 79 * 

18 1* 

10 2* - 

183* 

1 8H*_ . 
I AS* • 

1 8 6 * — 

1 A 7* 

J 83 • . 
189* 

... 1 9 0 • . 

1 91 * 

192* 

1 93 * 

.... 1 9 - 

|9S« 

1 96 * 

1 97 * 

1.9 8 

| 99* 

..... .200 . 

2 n i ♦ 
20 2# 

20 3* 

20 5*..- 

2 0 r » • 

.. . 2 0 * • 

2 0 7 • 

203* . 

207* 

2 L3 • — 

2 1 1 * 

2 l 2*_ 

2 ] 3* 
219*. 
2 15* 

2 1 A* _ 

2 1 7 * 

213* - 

2 19* 

22 0* ... 

221* 

2 2 2 .*_ 

223* 

22 9 * 
22 5* 

2 2 a • 
22 7 * 


C I H£ FpLLo^IwG 1 5 uS£0 FOR NYQUjSt 

C 

C NUMERATOR COEFFICIENTS 

UO-£-N— B — L Cx £41. -* — 1 

PNn I lOCn 1 ' * R 1 

LOcN. “-LOCM-T .. 1 

PM ii t LOCO 1 - :?2 

LOcN- 5 — LOCN..;.*— 3 

PNn < L 0 C N > = R 3 

f pENO Hi hlAXQ R_£ 0 E f - F . 4 C I guTS- 

LOcO « LOCO + 1 

p D— T-L OC 0 ) - e - R 9 

LOcO a LOCO * 1 

.. .P 0 .. t L 0 C D ) 3 R S 

LOcO » LOCO * l 

P~D — I L OCO-1— 5— H *— 

NNcPER t MIIMPOU * 3 

NDcRLR 1 MimpOL J— 3 

RETURN 


\LYSjS 


108000 000575 

-10 BO 1 0 L -0 00 S 7 S — 

10802q 000575 

_ 1 08 0-3 n 0 0 0-5 7-5 

loaoRo oon^oo 

_1 0 8o5q 000*03 „. . 


1 08 o *0 

_108o7q 

1 08 o 8 0 
.40.8 0 ?0 

1 D 8 1 Oo 

.4 08 1 IQ 

100 1 Zo 

109 l 3 0 ..._. 

1 O 01 MO 

- 4 X 1.84 5 o 

1081*0 
.4 0 a 1 7 Q . — 


ono*ci5 

... 0 0 0 * 10 

000* t 2 

— 000*12 

000*15 

— 000*20 

000*23 
000*25 . . 
000*30 

— 000*33 

000*35 
— 000*37 — 


.__J.eJ3-.C0u.TI.tUJE-..- 

Z0h!*Z1 

ZO H 2 = Z2-7 J 

Z0h3*-Z2 

ZO h 9 ^ 7 -4 

7 0 H 5 a Z 5 

ZO H * R Z* 


I 08 l 8 0 

1 0 B J 9 0 

1 08200 
108 21 0 

000***0 

.000*90 _ . - 

000*40 

0 0 0 *4 0 

1O022 O 

000*40 

I.Oq 2 3 0 _ 

— 000*49 — 

1082H 0 

000*44 

- -408250 - 

000*45 

1 082*0 
! n Q J 7 n 

000*4 7 

n n n * 5 I 

— — 4 *-* A. 

100200 

000*53 


PRINT ZOh COEFFICIENTS 

JF <GP*7nT> "JR| TE( A,*07) Z0 H 1 ,zoH2»ZOH3.ZOHR»ZOh5 1 20H* 

, q 7 F o „ M a i J. / R 9 X . ' 7 - 0 H -.. NUM._» 3.1 5x».l P E L 2-*-5 5 3 K_»_*_D E-N * i 3 (.5 X .» £.1 2 . 51.: 


ROhI «* 0?*Z0H1 - n 2 • 2 0H3 

ROh2°zOiH 1-2 0h2*Z0h3. 

R 0 h 3 0 Z 0 H H * Z 0 H 5 ♦ Z 0 H A 

RO mM « 0 ?»Z D H J * D_2 ..*.ZjltL& - 

ROH5azOH9-ZOH5+ZOM* 


..PRINT- ROh COEFFICIENTS 

[_ F ._ Jj £ R . RJJLrJ .-.- XKXl . LU .* AS ^ 

*r*8 FOrMAT {/ 99 x,’ROH u n * »2 < 5x . IPe 1 ?.5> / 53x • ' DEM* • 3< 5 X ,E12.' 

The FOLLOfflNfl IS U sE 0 FOR NYQUfST analysis 


NUMERATOR COEFFICIENTS 

LO c-M—P— LQ.C- N- . T - 1 

PNrj t L 0 C »T ► ■ ROMl 

LOc.N.. B LOCN + 4 

PN .< I LOC '' 1 * Ri'H 2 

DENOMINATOR coefficients 

Ln r l) = l.ncu ♦ I 


—4 0 8 2 ?0 

10830o 
-108310 - 
10832o 

— 1 0 8 3 3 o 

108390 

1 08 3 5q 

1 083*0 
.....I0a37 0 .... 
1 083B 0 

1 0 8 J9 o 

103900 
__ 108H 1 o — 
108920 

1 0 8 H 3 o ... 

1 OSHHo 

l-PBH&o 

1089*0 
... 1 D397q-.- 

1 0 8 9 8 o 

1 0899q-_ 

109S0q 

i d as io — 

I0852g 
._ 108S3 O .... 

1 0 fl 5 9 o 
.... 1085 5 0 
1 0 B 5 *g 


_ 000*55.. 
000*55 
000*55 
000*55 
-000*55.... 

0 n 0 *5 7 
. ono * 7 R 
On 0* 7 H 

000702 

00070* 

— OOO 7 l 2_ 
000720 
000720 
000720 
. OOO 7 20 
000720 

0 0Q7 2 ‘t_ 

OnO'7 9 5 
•- 000795 
000795 
-..-0 00795. 

000795 
— On 07.il 5- 
ono7so 
... 00075 3 




no<*3 1 
oo *»**•} 

D O *4 H i 

00*4*4 1 
•'OHH * 


00*4 5 1 


0 D H 5 ? 
00*45 J 
00*451 
00*455 

00*45 '•> 


00*46 i 
0 0 5*1 
00*4 6 > 
ODH *, » 
3 0 h 5 I 
n o s a. i 
00*4 6 i 
00 M 4 . ? 
00*4 7 1 
0 D S 7 l 
00*4 7 ? 


PO ( LOC0 1 = POH 5 

mn^pF $ 1 N vi f 1 r» D U > -- 3 — 2 

riOc pCn * t 4 j, | Mf »oL > e o 

j.p — L7 A r, 1 w Z p 0 L E- * 0 O *-'* — *-0 P 

N U !•> 2 » f 4 '.J HZ* i 

+4 N c z ( N *>* 4 ? » — 3—3 

LOcNZ = LOCNZ ♦ 1 

pNZ l-t;0CN7-*—“ -ZOH l — 

LOcNZ <s locmz + 1 

-PU* ( LOCMZ )•■ «™Z0H2 

lOc^Z 3 I.PC-'IZ + 1 

-p-t-17 t-t 0 C-*+7 4- «— Z t)H-3 

NOcZ 4 mU'1 2 ) 3 3 

-LOcOZ- *-locdz— ►"-•!— 

POZ [ LQCOZ> * Z 0 H 5 

1 0 c 0 Z a ■ L OC 07 -- 1 

P 0 7 ( LqC 0 7. 1 3 Z0H5 

-to cu z— -to — - — 

PDz<LaCDZ> ■ 2 0 H 6 

-N E 5 T Z - * “■**> E 5 T Z ■• + ■ ■ l 

E 5 T Z ( jE S T 7 ) - ZPO(. r (MZPOLE * 






EMO 0F_C0.-jP.1LAI.I0N 


MO. -D.UgmOST- 1 c5 



. N 0 -T-r Y ■€- s z m 4 — p E-Ttl R N 


1 0 857 g 000763 

i 0 9 5 8 □ 00076* 

10B59 0 000770 

-H) 8 6 0 o— 00 0-7-7-3- 


l D 8 6 1 0 000775 

1 0 8 6 2g 00 I OHO - 

1 0 0 6 3 q 001002 

1 0 9 6 0 Q 00 l 00*4 

Of) 102 1 

— —00 102*4- 

001027 

001032 

001035 

00 1037 

0 0 1 0 *4 2 

00 I 0 8*4- 

0010*47 

00 1050- 

001053 

— 00105* 

001060 

Q 0 10 6 3- 

001065 

00 1 070 

00 I 07 3 

108670 00 l 1 00 

1 0868 Q 001183 
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PMAP.L F . aEJMTF. AFRO 
MAP ^32i-05/23-o5:53..-.t 3 


]_* .tip e eiaexti 

3*_. 

\ . 


s • 


■> • 

•u 

♦ 

M* 

1 1 ♦ 
I ?• 

JL J • 


L IB F . LEC*U« 

-LI a MS C » P L T-L-T S- 
SEG a 


I N m A I U • A o o 1 0 M i 3 L 0 C K » C-5>! T R X-'. D.E.J, 1 0 H .» E R R 0 r.» Li M I .T..» N 0 M M.T.X. i R E s E.T.i Z E E P.L S— 

I M <tEPl.<EEp2,KFEP3,KrEpM,KeFp5*KEEP6*KE:EP7*KEEP8»KEEP?,KFEPI0,KEEPll 

IN k £ E e. .1 3 * K L £E ih *K ££2.-1 S.*i:.E£.ILiA.».lc£EP--L8 »-(£* E P.L?J iC EE P 2 tUXE£p.2J 

IN cPUDliC K U02»CP'jO3»C f IUnH,CRuo^ , Pl- T, P L T A RYt N IcH0L 


1 «• 

I S* 
l >* 

. . . 1 '• 

1 

II*... 

71 • 

? 1 • 

• 

Z 1 • 

7 »• 


IN AFl\/Ar< iDATA I G-NMT x « I Np E 5 T 1 iNpMTx » 1 NPWYQ • I N p R j_ # INPUTt p ^£yAR*RAvKMTx 

IN STNRL . VRYGE.Ni VRYfU-Y - •- — — ' 

5EG nZ **.( «» 

_.I N A f, A INligDA B y ££.1 aF r .» oXX«XS-~UuA- T » F I X 1 H -x-C AL-C--»-P-EvA L-*-&0 £Xe-*-#.5AV£ 

IN SCALE»50LVE,5TaKT,XC«5 

.SEG C I * » U2> - • - 

IN C LpOLE,cO l ,p u T.c5nLTF.nETCS,FORM»FPM T x»pOL E:s *P RINTT ‘PUTOuTtRLOCUS 

SEG C2* * I «2 > 

__ I N .. 8 H A ? 1Z ,0 E T.S q-i-G ET. EL§_I_i^ 4 -P i _ 0 .I J . R 4 r p.RillJJUl-T 
SEG A 3 • 1 l A ) 

IN B H A 3H 1 , ML.IZrO imOqZRO .mZT. 8 ANi.PFE »rF£ZrO t SFPDpCiZT.RAN - 


5 1 G 3 H * , ( a I 

IN Qtr, INirhAD?) .pnOEiDS *G R AP H S » I N !TAl.» 1 N T I » INT 2 «NYQJ 5 T t Oa T PUT.*pO 1 N.T 
IN POLVAL*Sl N NYQ,SUMNKY'SY<;FRf}»rEsT,TRNqFR» WRITE 


FILE F' ' NEFD5 A PREP IW OPD£R To BE SEARCHED 

.A.Fcm_ ST A.T,;s ,0F_ Out P U T- E L E M £lO=5£T,A F.C M — — 


aDDpESS L|MjTS 00 1 000 0 3 3 Sf)6 

_ OiLQ.O.LlO L*l25 2 2 

SEg-CNt lo*d table ■ OrOoou rv«nn33 

I N 0 1 1 ; E C T LOAD Ta^lE. Or U 0 3 1 0 ** 0 3.7 ? 

STARTING ADDRESS 0 2 3 H 1^ 


1363? IBANK ‘A'OKfiS Dc-CIMaL 
3H I 3 1 nn A N*_?J D? n5_ D r.CI M A L - 


segment A 


OOlOO n Q 2R.5 7.3_ 


QMQRnD 1 M 0 3p 6 


SYS$*RLUS.NS«TTc$?F0R69 

St 1 1 _ 001000 00^024 - 

external references! NTARJi fmctbs, iocods, ,/RBLKS • 


5Y5«- -RL! B^.NRSLKs/FORAfl 

S t | J. 0 0.1 0 2S- 00 1 OR 7— — — 

external references! htaqs* unit 5 * wait®* ni^Er*, rs, updoa*» 


Syss «R l.I.Q S..N.R / F O.SL&JL 


*fi> oninso 00 1 1 3 1 5t2 ) ouosoo onohu 

EXTERNAL R E F E R E N C ES „M T. A Q ? NS 3 l <* » NHPF A S »_ I nCOO -5 * NF CH <-Jt AJ.T.5. 
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NIOepI^^Bs* DRAINj, NRsFs, RF*H, IQs. STREGS, print*, NH'ALki 
S Y $ S « R L I 8S*NREFS/F0R69 


-S.l t ) o . n } |j 2 00 IB ; 


external references: nta*®, nsM*» nhpfas* Iocod's* mfch ks » 

p ft CKTi u*j T s ^-uhDPh* r wA o« a ins , — 

UftFcTS. NIoERS* NftFRi.S* n s ••' T c s t siHdm*' puNc«m PnCHA®* stkegs. 
pp I NTS , N A L < ® t ~C LOS C® v-nfptv-IOt 


._S.Y_S-S.ftRL- 1 B s * tif.XC H s / F 0 R /vS- 


s l t J 001336 OOl^Jfl St2 > 0H0B32 0*tnHiS 

External references: nta^s, rdbl^ 5 »- *ai ts i n joer®*- iocod® *■- 

NPFRLS, NBFGTS, NBFM fl s, Rj, nEPYjS, nI°E r 5 A » hBFRSS, nFRO^Fs, MBS, 
y N I T s » I 0 *$ » - F n C t R$ ’ UPi)D A S » • ST-rFG* ♦■- n STaT s » NERds - - 


_sxs S-fc R-L 1 p. S.*_NB D C.V.S /XCUW-H- 


S « t 1 D n 1 A 2 1 CU) l 7 *t6 SI2) 0 4 0 ^ H& O^DSlo 

External references ? — «c 1 ulo* •• nfoP* , nc iul t — 


5 y$s«Rl I P-S. NFTVs/FOR 


S( 1 ) 00 1 7 *♦ 7 0 Q 1 7 7 1 


SYS«*KL1«* .NCNVTS/F0R6B 

- - S<-j) — 00 1772-0022 1-3 5 <2) 0 4 0 S 1~1 "0 H 0 6 o5 

External references? street* nstsv®* nsTats* ncOm 3 ®* nerck®* 

- NFTGL®* NCOOFS, NF-PCT 5 - “ ~ 


S .Y S S *iU.J-Q s a n C LQ S S /. F.0 RJ> 8_ 


* ( 1 > 0022IH Sf2) QnO A o6 0^0636 

External references: — nt ab*-» • ns 1 ;s-»-un i t® »— csp-s -« b $ *— n 7 ; e fs- 

iUIT*. NREA*» NRbF®» STrEg® . M C E F E » PRINTS* NojalKs* NTbS 25 * 

N I OCRs* a%t - 1<H _ ■ — - — ■-* — — ■ 


srs? Lias, n A.a lx.s / r. on u a . 


% ( | ) on?Rps 0(|2S [ a 

External references:-- ntao® , -uni t s * _« a 1 ts., .n i 0 Ers,„ wi-.-updoa?-,- 


ids 


SyS®*RL!8S»NbSBL®/F0R68 


-4- — ■ — -Q-0 2 5 0 q2 SS7 


External references? ntaos, mb®* wait®* niqErs, to#®, up do as 


SYS5*RLl p 5»NUPL}AS/F0RAe 

s ( | 4 — -D 02 SA 0 00261 - 3 —- 

External references? nt.ab* . /,-a 1 t* • mb® 


SY 5 H*R L |B*,NBF 0 C?/F 0 R 

- 5 { 2 I ..._0Nni37--OR30*(b 

SYS5*.RLIB5 . N lNIfjS/.FOR&a — 

S f 1 ) 00 26 1 H 00 3 0nN S(2 I 0 r3ON1 QH3QRR 

£ x-IER M At—RJE FJE.fi E-NCES? MjABi-*- P-ACX-Ii ; -*--WilfiK5_i_r-i^-E-c_S-^K£ Ry «&«_, 

n KLn»* N<L2S» N F R A $ » NLLMS, nRI^S* mFTCB®* TEmP?, UNITS* NFTCHs* 
... . NBC*S» N I I cs »- l-CSPs * TJB 1 p A* , -MEFctS , rEADA*... — 

S Y 5-: • t?L I B< « N I OPTS /FDR A? — ; -- 

S t 1 J uOTnnS u 0 ‘1 0 J 3 ®t2l 0't30R5 o h 3075 
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E^TeVha^^EfEPENcEs: Nf|G9ni> NF 6 TS, j0<;0D 4 * NR92 i» NR93*» Nllc 4 » 

NF-f - 9.651 N F A R 5 » -NFR.Z S-+—N.PJV 2 P_9. i.S_»_s-T R E.G S.»_U 5 .T .5 V * # — 5 T A T S.j 

NC0M3S* n fTgL$* NERCpS i NFC1i» ^C^’Vps* NSFI, nF5G«» NFDBS » NDofIi* 

tJDBCV? ,i_ N F R r g . MF RHt . .JJFLr.L.£_t_-HE: OlM— N-DB-l.U 5 .*— nG-C 9.S-j_>JP-C-T^.J_N-T-ta2-»-, 

NFGC 5 * NRTR5* NFRGI. NDbL7$,REAo 5 i NCSp*» nv f cs 

S Y S I * R L I * S ♦ F S R 5 1 s / F n k c 9 

If,) oonn ; ‘k_Ct)^D , in - - 5 t * J 0-4307-6 -OH 3 1 0-3 — — 

s y S 5 _* Sl ip i « n o t i hi /fo p 

It,) 0040«M 00^335 M2) 043 |q4 0431q7 

EXTERNAL . REFER EMC ES-J WT-ArS *._MFR J.5,».~NH-Ec-* ♦_NFpC-$ »■•■ NS T-Sv 5 »--PACKT*-*- 

N F R u s « NPg 5 . N P P s » N *• L w 1 » ^ F R A $ » N 0 L M 5 , NTfNOs, N B F M g S » 

NClULD* NbFGTS*. NBFRS*»- »AtTS,--W.lOEp5, UP DO A 5 , _ b SI EL * . FNCTb®. 

pkchas* no* its, ncccs» p p p 5 1 prot* 3 . ncspm Temp*, drain 5 * unit 5 i 

NRFRLS»-NCJN 1 .0 2 i-»- C-F-E-t— N-l-H-2 * 

SfS*»RLl n M N °U T VFOR65 . 

It,) '004336 Dn&5|7 M 2 ) 0431 (0 043146 

EXTERNAL references: . .NC3PS, mFrJ*.» nFPCS , J DCODS ... NPCT 5 • Nr9?S., 

NR 9 3$ , MRm92s* MFm96*« NFAp*, NFRZl, NP9ll« N qll* NFNSll* FmTop* 

N F N S 2 5 j . N F *'J S 3 5 M D I £S» N S L 5.,—ii(xO y- T 5 . N 1 J>i D.5_»_J% G C-*-*— N G C 9-S-*._MT-l O *~y 

N F R A 5 • X F 0 iV 5 * N R 9 1 S. t NFn?®* p R N T A 5 » pRlNTS* P U N C H I * NVEC 5 


SySI*RLTP5«?)FMTi/F0R69 

S < 1 ) 005M3 00*367 M2) 043147 043223 

external references: ntab*, nfrzm nfrzss* vhtrs *' nftgl* * 

N 1 0 J.V 5 , NF.r; I O.J.S (-0-3 V S-y~J4g4j.I-O-l. D Ai I M-j.0-3.V-A £-« — Nn B J.s. r — K-A-B-7-S4— N-A-B^-s-t 

N A a 4 S ♦ MAr2s t NASB$» N A 0 3 $ , N A B 1 5 » NAB*!* 5 T R p G I » N S T A T I « N E R c. R * t 
.. NF CS 5 » NDftC V 5 NHvC 5 »-- f JDt) l NI ,...NX vC® , .NA yCS •. -NpR G S NrTrS t -PR I NT*-t- 

nfca*» nvEc 5 * Nl 02 s, locont, ncaii n^hArs, ns t Sv 5 

5YS?*-RLTRI.NI0Er-s/F0RA9 

. . 5.JL,J. 0 0 6,37.0— Do 6 -SlS 7 5JL2.X- 0 « 32 ?-*—(!. 4.3.36 2 

EXTERNAL REFERENCES ! M T A 0 5 , STkF.G 5 , v,N|TI» N L RT * * N LTp 5 * NSTatS, 
nc j NIU 25> NTENpI » N5 I 1 5 . NPSE 5 * NS Ao$ » PR 1 N T 5 ,--p Ar K T I , N ft A l. K $ -■ 

SY5M RL I PS • NFCHkVF°R69 - • — 

St.) 0065 60 00 7 Br5 5 1 2 ) 0 « 3 363 043S3 6 

5JLiL) n.H 35,3.7—0 4 36.1 0- 

ExTERf!AL references: NTAbS, NFRu s * mTbsZS* UnITM NbTOD*» fi TENS* 

PL 5 , 8 L I , PaEKt?,. I 0 C 0 E 1 S * St^EGS ,....N.S.T aT- s »-- P R-I yTS aLKS I N5 l_i.s ...... 

CSF 5 » A I T i « fJ J 0 E R 5 » w& 1 I n 1 . 5 . , UpDO A <5 I BSlBLS, MB?; * T E MP5 * . DR A I N s , 

— ...ftPaLK 1 * No t UL P 1 NC I Ul. I 1 bZo*"* S 20 5 » plOSi B I L * 1 . CLOSES* EXIT 

5Y5«^9L I , NT A BI/ J5C_. — 

5 ( 2 ) 0 < 1 3 6 ) 1 1)43650 

"" ”5 Y 5 I - R L I 3 S . ME X P A 5 / F OR 6 8 

S t.J ) 007b46_ 00774-2 

External references.: nerras* nErRbs* 


SYsi*RlI9*«NEXP15/FOR68 

Sill- 007743 ClOPon MO) Ou3.?23 043723 

E X T r R r • A L REFFPr*'CES: n^rrb^ , t-ERPC* 

5 YS?«RLI b 5 *FPUS/SYS 69 


s ( 2 )„ .04.365 I 043722 

NERRC* 



S£}2-9 


SYSs.*‘«Ul-?5..^WPS/,fORAS . ~ — 

5 (< 1' o It n o o r OiiDOM'O **2> 0*3724 043724 

- - 8* T 'eH'T*u ^eirecj-E^cffs^--. w?Ant % > nhpf a» *~mrsx 5 * I nceo* *~nfch* : * * n j os 

MdiPz-vsi. nr? ns, rusts, fhS23, n 1 r n r ^ 5 * nFmts* n<lhs, nfras. nrtk®* 

w.p 3 m . v ^-N:ST-SV-S-« — N-N6-9&7 — 

SYS**RL1 85. E XPS/F0R5? ■ - 

*1,» Oinn*] Dl013n *12) 0'|3725 1)437 h5 

EXTERNAL REFE«EK ! CE:s , »---NEHWA«t M E R fc b 5 

_S y $ s.&Rl-i r- * . « e y.p b s/ro ra a 

£ I 1 I 0 ! n j 3 1 0(02(6 5(2) 043746 043755 

-- external references! — mekras* nerro* ,-nerrcs ■-■ 

-5YS«* Rl I ns.C/.BS*/rOR59 — 

5()l 010217 01D2S3 5(2) 0**3756 043760 

£..),.T E Rr4AL_pEFf.R€weE s4 N (• ffR A-F-» — F-5R-* l~i — NE-RRG-* 

5Y5S*Rl 1 BS*CSURTS/F0RA? - — - — 

St I ) 0(0254 0 I 0 3 3f| 5(2, 0*3761 0 4 3764 

External references! --cahs» fshm - — - - • -- • 

_SY.St.aRL I «*• Al i 0G$./p.0.P.5a 

51)1 0(0331 010450 *12) 043765 044025 

• external references! — terras — - - — 


S YSS^RL t 0 5.S I NC0SS/F0R59. - - 

95 ( 1 > i] I rt M S t 0 l 0*n3 *12) 0 M 40 26 Q44Q47 

E- X T E R N A L- R E FEP-F *0 E 5 - ^E-H R A 5 •*— N-E44-R-B-S T“ 

SYS5«RL IBS. A.TAOS/f 0P5 9 

Si,) 010604 0 1 1 Op 7 *1 21 044050 044(01 

external references: — nerrr* -me r k 

, 5Xss-RLl^*»saR.T.SZE.Q8.S9 — 

S(,J 011010 0(1050 *12, 0*44(02 0441 |3 

external references: ...nerras — — — - 

V 

SYSS.-Rl! 4* .Cl> v VF0R6B__ 

S ( ] ) 01(051 Cl 1 l 1 4 6 5( 2) .044( 14 044131 

E X-T E R N-A I R E F-ELR-E-MC^S N-E-S R R5 *.~U E.R-H-A * , NgR KC S ; 


S Y.s s *»Rl 1 9 Rfi $ / F o R 4.9 • - 

«()> 0 1 1 ( 4 7 0(1547 * 12 , Om 4 (32 044322 

external references: — pr~int-s» nee* ». earts , ns.us 

_,S.Y 5 S* SL J 2 5 t *f .LEAS /E.0.?,.(l1 

* 1,1 Ull 5 Sn CJl 1^31 * 1 21 0*44323 044443 

. External references :._.n»; 43 s , .iisJ i* - — - - 


J5YS5 *RlI 9 S.NQ?Uf*/F 0R6.8 - — 

St)) 0(1732 011772^ ^ ^ ^ 

pAC*T5» N I OER* A » NTSTO*« N | p 2 V ? » NK9l$* NDLN k 5» FHStOS, FHS20$, 
... -NprilS, Mri, .NFmTs, i- AlTS - - • - - • 





sys^kl. rs**.^^/* 1 * 

SE-Cf-t-l* 0-t- 1! 7 7 3-0-J 2a«* »- 

•BxTERNAU REFERENCES f Sl ts »- LOAD® 


*Se« t, LTt.l>9*P* f NTV/'SM fCH t 

...... S it lZaH.2.at^l5M 5 |JU > — 

EXTERNAL references: ScCYAn» PLOTS 


HSc*' , LTLla.RXLTP 


EXTERNAL REFERENCES? PkINTV 

n$c*i*itl 19*Rac 


JUQ-) O-if-RH 5 3-0 H S4-02- 


Sl lX 0I215S OjZl77 


„._*5<*<»L|U.9*'JN?.A.C 

•»Sc*>*LTl »g*Pt>T 

*15C*''LTLIb«SCTJ 

f, 5C « M LTL I B.SET 


stl> Ot2ZOO 01Z21R 
i t 1.1... 01 22 IS Dl 2232- 


*10) Or5Io3 0H&202 


$ ( | 01 2233 0122^4 ®(0) D4S2o 3 U4S204 


.5}, N S C.*i’ L T. L I B *-I 0 E_ 

ro 

CO 

cn - 


sip 0122S5 0 1 23 3 2 M2) IpINFO 

external referenc e si jml t <? s a .jd ut : j z z — 


HSc* f *LU Ig.^ACKZZ 


?(|t 0 1 7 3 33 01 2^75 Mo, D452o5 QRS2A3 
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APPENDIX A - GENERATION OF A SAMPLED DATA OPEN LOOP TRANSFER FUNCTION 


NOMENCLATURE 

Characteristic matrix polynomial obtained from the Laplace 
transformation of the system dynamic and control equations 

Open loop transfer function of the continuous system in the 
S domain. ; 

Open loop transfer function of the sampled data system in 
the Z domai n . 

Open loop transfer function of the. sampled data, system after 

the bi-linear transformation Z=~J- from the 2 domain to the 
. R domain. 

, Open loop transfer function of the sampled data system in the 
Z domain with zero orccr hoTd. 

Gh 0 GH(Z 3 ^~>) > Open lioop transfer function of the sampled data system with zero 

order hold after the t' -1-i near transformation Z=jLtL from the 
Z domain to the P. domain. 

P (S ) Numerator polynomial c f Ghi(S). 

Kp . Leading coefficient of P(S). 

Q C S ) Denominator polynomial of GH(S). 

Kg ■ Leading coefficient ot Q(S). 

K . /. . Leading coefficient of GH(S) where K-Kp/Kg 

* • 

T’’*. • . Sampling period. 

Tq Transport Lag. 


A(S) 

GH(S) 

GH(Z) 

GH(Z=£±j) 

G h o GH ^) 



A-2 


NOMENCLATURE 


M 

RTR 

RTI 

RSR 

RSI 


M « 1 - T D . 

r~. 

Real part of a root. 

Imaginary part of a rcot. 

Real part of a residue. 

■ / 

Imaginary part of a residue.. 


PROBLEM INPUT 
A(S) = 


$ 10 

1 S 2 + 2 

0 1 


16 

S 

1 


Open the loop at matrix location row3, column 2 


T = 0.5 

t d - 0.1 




PROBLEM OUTPUT 


Characteristic roots of the matrix polynomial (poles of the closed loop transfer 
function) 

Poles of the open loop transfer function (roots of Q(S)) 

The Q(S) polynomial and leading coefficient 

loros of the open loop transfer function (roots of P (S) ) 

The P(S) polynomial and leading coefficient Kp 

Leading coefficient of GH(S) denoted by K»£jP 

Partial fraction expansion of GH($) (residues .and poles) 

Transformation of GK(S) to GH(Z) in partial fraction expansion form 

Transformation of GH(Z) to GH(Z»~y) partial fraction expansion form (bi-linear 
transformation from the Z domain to the Rdomain) 

Open loop poles of G1I(Z) and magnitvee^ ' 

G^ q GH(Z) transfer function with zerc order hold in partial fraction expansion fora 

Transformation of the G. GK(Z) transfer function with zero order hold to the 
R + 1 n o . 

G^ o GH(Z«~y) transfer function in partial fraction expansion forn. 



A- 4 


SOLUTION 

Characteristic matrix 


acs; 



16 

S 

1 


Characteristic polynomial 





CCS) - 1 ACS) I 

• = SCS 2 +2-S)-lC-16) • 

= S 3 +2S-S 2 +16 
» S 3 -S 2 +2S+16 

= CS 2 -3S+8) CS + 2) 

> ‘ 

" •• ■ (S-l.S -fn i.) CS-1.5 + /2T i) CS+2) 

~T~ ■ 2 

> 

= CS-l.S-2.397916i) CS-1 . S + 2 . 397916i) CS+2) 


Characteristic roots 


\ 

| 1. '.±2. 397916i , -2.0 




A- 5 


Tho loop is oponed at matrix location row 3, column 2. 

i 

S 0 16 

1 0 S = S(-S)-l(-16>-S 2 + 16 = -1.0(S 2 -16) ».-1.0 (S+4) CS-4) 

Oil* 


Hence ; 


S' 0 16 

1 S 2 + 2 • S 
0 0 1 


Also; 



l > . 


= S(S 2 +2) - S 3 + 2S » S (S+/2 i) (S-/T i) 






A- 6 



-> S 2 - 16 - (S+/2 i)(S-/2 i) A + SCS-/2 i)B + S(S+/2 i) 

Henco . 1 

S ■ 0 **16 n 2 A *** > A « -8 

S » ~/2 i -> -2-16 - -/2 i(-2/J i) B -> B « 4.5 

I > • - 

' B a 4*5 


Therefor© 



«t 


1 + ^ s ’ 
S S2 + 2 


i « 




Hcnco tho open loop transfer function GH(S) can be expressed in partial fraction 
expansion form 


GH(S) - K P(S) 

QlsT 


«* 1 » 0 [ 


«* S « 0 


s 


9 . OS 
s^TTo 



9. OS . 
S* + 2.0 


whero 




GH (S) is transformed into GH(Z) by transforming the individual terms of the 
partial fraction expansion. 


Open Loop Pole 
• 0.0 
-/2 i 
+ /I i 


♦ Residue 

-S.0 

4.5 

4.5 


8.0 

S 




8.0 

Z-1.0 


>9. OS 
S 2 +2 . 0 



aZ+b 

c Z 2 + d Z + e 




A- 8 


whore 


T . RTR x T 0.0 x 0.5 . 0.0 - - 

T1 b o «* e **1*0 

T9 RTR X M X T 0. 0x0. 8x0. 5 0.0 , A 

T2«e *»e « e « 1,0 

9 

* 

T3 - i RTI | x T » /? x 0.5 » 1.4X421 x 0.5 = 0.707105 

' T4 » 2.0 x RSR x T2 « 2.0 x 4,5 x 1.0 = 9.0 

\ 

T5 « -2.0 x RSI x T2 « -2.0 X 0.0 x 1.0 »*0.0 

and 

a - K x [T4 x cos (M x T3) + 75 x ,sin (M x T3) ] 

1 

► 

« -1.0[9.0 x cos (0.S x 0.707105) + 0.0 x sin- (0.8 x 
« -9.0 cos (0 .565684) 

» -9.0 cos (32.425°) 

« -9.0 cos (32° 25*) 

» -9.0 x 0.84417 
» -7.59753 


0.707105)] 



A- 9 


b - K x [T5 x T1 x sin [(1.0-M) x T3]-T4 x Ti x cos [(1.0-M) x T3]] 

“ -1.0[0.0 x 1.0 x sin[ (1.0-0.8)x0,707105]-9.0 x 1.0 x cos [ Cl • 0-0. S) xO . 707105 ] ] 
« 9.0 cos (0.2x0.707105) 

- 9.0 cos (0.141421) 

- 9.0 cos (8.08°) 

■ 9.0 cos (8° 6') 

- 9.0 x 0.99002 

* 

* 8.91018 
c *.1.0 



A- 10 


d m -2,0 x TX x cos(T3) 

- -2,0 x 1.0 x cos (0,707105) 
« -2.0 cos (40.508°) 

« -2.0 cos (40° 30.48') 

- -2.0 x 0.76025 
■ -1.52050 


e « e 


2.0 x RTR x T 


U Q 


2.0 x 0.0 x 0.5 


* e 


0.0 


M 1 . 0 


hence 


-9.0 S 
S 2 + 2 . 0 


-7.597S52-v8.910 
Z 2 - 1 . 52050Z+ X . 0 


The open loop transfer function in the 2 domain GH(Z) can be expressed in 
partial fraction expansion form wh>re k 



LL-V 


GH (Z) 


8.0 

Z- 1 . 6 


+ 


>7.5 )755Z+8.910 
Z 2 -i,52050Z+1.0 


The open loop poles of GK(Z) are the roots of (Z-1.0) and (Z 2 -l , 52050Z+1 . 0) . 


Open Loop Polos of GH(Z) Magnitude 


1.0 


1.0 

.760245 + .649637 

i i 

ivo 

.760245 - .649637 

i 

1.0 


GH(Z) is transformed into the R domaii. by the bi-linear transformation 

* ^ R-I 

which is applied to each term of the partial fraction expansion of GH(Z) 


8«0 ^ S._0 _ _ f-O(iUl.O) . _| $ . OR- S . 0 

2-1.0 ^ R+l 1 n 'Or+n 0) -1.0(11-1.0) ”1 2.0 

rTT " A * U ] 


-7.597552+8.910 

Z 2 -1.52050Z+1.0 


aZ+b 


(ilL) 

a V R- +b 


lili) 2 


c^R-i 


+ d 


,R+1. 

C RTT )+e 


cZ 2 +dZ+e 





A- 12 


whore a '‘R- + b (a+b) R*-2 . ObR+ (b-a) 

c (£fjO + d C ^T J + e (c+d+6)R 2 +(2.0c-2.0e)R+(c-d+e) 


„ (-7.S97S3'+S.910)R 2 -2.0x8.910R+(S.910 + 7.S97S3) 

(1.0-1.3205 + 1. 0)R 2 + (2.0x1. 0-2. 0x1.0) R+ (1. 0+1. 5205 + 1.0) 


B 1.312R 2 -17> 820R+16 .508 
O.4795R 2 +O.0R+3.52Q5 


hence 

-7.59753Z+8.910 
Z 2 -1.S20SZ+1.0: • 


I » • 

. 1,3 1 2R 2 -17.S20R+16.50S 

O.479SR?+O.0R+3.5205 


R+ 1 

The open loop transfer function in the R domain GH(Z«^— y) can be expressed in 
partial fraction expansion form where 


GH(Z« 


R + 1 
R-l 


8.0R-8.0 + 1.312R 2 - 1 7.S20R+16.508 

Z '° 0.479SR 2 +0.0R+3.S20S 




A-13 


zmo ORDER HOLD 


1 - r 

A zoro order hold is represented by — ^ which is multiplied times the open loop 

transfer function. 


• G ho GH ^ S5 - 


-ST 
- -ST 

C^-f ) [-J.oc 

(l-e" S ?) [-3 .0 C 
Cl-e' ST ) t-l.OC 


S.O 9. OS 
S 


-S.O '9.0 


S 2 - 16 
S i *'+2S 


S Z + 2.Q 

t)] 


)] 

0] 


The open loop poles of G^ o GH(S) are 0.0, 0.*0, /2*i, and -/2"i 4 The zero order hold 
introduced an additional open loop pole ,^t the origin. Let P CS] «S 2 -16 

Q(S)«S l4 + 2S 2 


then 


. K - -1.0 


PCS] _ S 2 - 1 6 
QCS T S^+2S2 


and 


G ho GH(S)«Cl-c 


-ST.., PCS] 

}X QUJ 
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Expanding ^ into partial fraction form yields the following 
* Q (.o ; 


Zi|l H A + B + _C_ + _ C_ 
Q ( s ) s S S+/Ii S -/izi. 


Let R(S) - S 2 + 2 then 


A „ 1^21 n Zll 

A ITtoJ 2 


-8 


B » 


P " (0) -AR" (0) 
RfUl 


0.0-8*0(G, 0) 
275 


» 0.0 


c *■ 


-13 


Zll A « llii. * ?. .181981 


4/2i -W/2 


V2 


C ** -3. 18198i 


Hence, 


PCS') -8.0. 3.1S1981 3 ■. 1 S 1 9 8 i 

■ i ■ > m «■ tM 4 * rz* 4 * -■—■■■ • m *■ iii 

QCS) F s s + / 2 i S../ 2 i 


4,5 
-8 /2i 

El '■ ■ + 


4.S 

/2i 


SZ S+/2i S-/21 


-8 9.0 

“ JT S^+2.0 



SL-V 


The open loop transfer function G ho GH(S) with zero order .hold can be expressed in 
partial fraction expansion form 

G ho GH(S) » C X-e- ST )K^|j- 
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By definition 2»e* G ^* # hence the 


Z transformation of G^ o GH(S) 


becomes 


J_[G ho GH(S)] tC^^-OGHCS)] 


¥ 


G ho GH ^ trans ^°^ m cd into G ho GH(Z) by transforming the individual terms of 
partial fraction expansion. 


8.0 


(l-e“ 



1 


■> 


aZ+b ,Z-1* 
Z^-2Z*t*l* L Z~ ; 



where a ** RSRxMxTxK 

“ -8.0x0. 8x0. 5 x- 1.0 
* 3*2 


b « KxRSRxTx ( 1 -M) 

' - -1.0x(-8.0)x0.5x(1.0-0.8) 

a 0 . 8 


hence 


B . 0 * •> .*• S T \ 
ST- C 1 - ® ) 


■> 


3.2Z+0.8 

2 ^‘^ 2 T 0 Z +' l .0 


C 2=1) „ j, 27^0. S 2-1 
*■ Z 1 (Z-1) * ^ 2 J 


3.2Z+0.S 
Z^-Z+U. 0 


the 




a -v 


— . *Cl-e~ ST ) 


0*0 


-9*0 

S v +2 


Cl-o 




a Z + b ^Z-l* 


where 

ti — ■ 0 * 0x0 * 5 0*0 . - 

T1 * e »e “1.0 

T 9 « 0 * 0x0 * SxO * 5 _0*0 « » 

I Z « e «e “1*0 

T3 = | /2| xO.S = /2xO. 5=1. 41421x0. 5=0.. 70710S 

T4 “ 2 . 0x0 . 0x1 . 0=*0 * 0 

1 > 

T5 « -2.0x3* 18198xl*0«-6. 36396 ; 

since ftTI » -/2* < 0*0 then TS * 6*36396 
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and 


a - -1.0[0.0xcos(0. 8x0. 70710S)+6. 36396xsin(0. 8x0.707105)] 

- -6.36396xsin(0.S6S684) 

« -6.36396xsinC32.42S") . • 

♦ 

«• -6.36396xsinC32°25') 

- -6.36396x0.53607 

- -3.411528 

b - - 1. Ox [+6. 36396x1. Oxsin [ Cl i 0-0. 3) x. 707105] -0. 0x1. 0xcos[(1.0-.S)x. 707105]] 

5 '• 

» -6. 36396xsin(0.2x. 707105) 

- -6.36396 x sinC. 1414210) 

» -6.36396 x siinCS.10") 

» -6.36396 x sin C 8 * 6 ') 

= -6.36396 x .14090 
= -8.96745 


c » 1*0 
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U *• *i*y/ul»VAU03^U t / U/AU5j 


« -2,0xcos(40.50S o ) 

« -2,0xcos (40°30,48*3 
■ -2*0x0,76025 
« -1.520SO 


q a e 2 • 0x0 • 0x0*5 

0,0 . . 

« e 


» 1.0 


hence 

-9.0,, „~ST, ^ -3. 41152SZ-. 896745 ,2-1,0, 

' > Zi-l , S2 0^0"Z+1,6 ^ Z ' } 


~3.41152SZ 2 + 2.51405Z+.3 3674'5 
Z*-l. 5 2 0 5 Z ^+"1 ; 0 Z + 0 . 0 


The open loop transfer function G^ 0 GIICZ) with zero order hold can be expressed in 
partial fraction expansion form whero 

„ _ 3.2Z+0.8 . -3. 411523Z?*2. 51405 Z.+ , 896745 

G ho GK[ZJ Z^-Z+0.0 Z^-l.S205Z‘+1.0Z+0.o‘ 


and the open loop poles in the 2 domain are 
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Open Loop Pole of GhoGH(Z) 

1.0 

*760245+. 6496371 
.760245-. 6496371 
0.0 
0.0 


Magnitude 

1.0 

1.0 

1.0 

0.0 

0.0 


generated by the zero order 
hold option 


G ho GH(Z) with zero order hold is transformed into the R domain by the bi-linear 

transformation Z » which is applied to each term of the partial fraction 

. K— X • 


expansion of G^ 0 GH(Z) 

,R+ls 

3.2Z + 0.8 _ t5.2MuF * 0.8 .. » 3.2(R 2 -:1..0)+0>S(R 2 -2 > OR+1.0) 

” Z*~Z * . r^Z 'r+ XT * Rii + 2 . 0R+1 . 0 - (R2-1.G) '"" — 


4. OR 2 - 1.6R-2.4 

2.0R+2.0 
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-3.411528Z 2 *2.5140SZ+0. 896745 . aZ 2 +hZ+c 

Z3-1.516SZ4 + 1.0Z + 0.0 •" dZ i + oZ' I + tZ + 0.0 


whero 


aZ 2 +bZ + c 
dZ^+cZ^+f zVo 76 " 




(All, 2 ( All, 

\;ur+b .*l-r + c 

"k+T -~ 2 ~~ ~ 


^•i:45 %e ^' +£ ^ )+o *° 


R+l 


af- o-3c)R + (3c-a-b) R+ (b-a-c) 

(d- j+£)R 3 + (e~f+ 3 )R 2 + ( 3 -c- f ) R+ (f-e+d) 

* (^ 3 .411528-2; S 1405- 3. Ox. S9 6 745) R 2 + C 5 > Ox, S* > >74S* 3 . 4 1 j 5 2 8-2 . 5 1 405) R+ (2 . 51405+5. 4 11 a 2 S- ♦ $9 67^5) 

Cl.Q-1 . 5205+1. 0)R 3 +(-l. 5205-1. 0+3. 0)R 2 + (3* 5+ 1 . 5 205 - 1 . 0) R+ ( 1 . 0+ 1 . S20S+ 1 . 0) 

i 

C-S. 925578- 2. 690235) R + (2 . 6902 55 + 0 . 8974781 R+ (5 . 92S578- . 89674S) 

.479SR 3 + . 479SR 2 + 3.S20SR + 3. 5205 , 


-S.615S13R 2 + 3. S87713R+5. 028833 
.4795R 3 +.479SR 2 +3.5205R+3.S205 


The open loop transfer function with zero order hold in the R domain GhoGHCZa^-y) can he 
expressed in partial fraction expansion fori.;- 


6 ko 6 a < z -ICT> 


4 . OR 2 - 1 . 6R-2 . 4 


-S.615813R 2 * 3 I '. S 7 7 1 3 R * 5.028835- 
.479SR 3 +- .479SK 2 + 3.S205R + 3.5205 


2.0R+2.0 




APPENDIX B 


ERROR PROCEDURE AND COMMENTS 

Any input, execution, or logic error incurred during program processing is 
assigned a unique error code which is printed by the program. 

ERROR CODE - XXX 

Following the error message the program sloughs and prints data cards until 
a data card with 'KEY' punched in col urns 1 4 is encountered. 

SKIPPING DATA CARDS UNTIL KEY WORD IS FOUND 

(1-st data card sloughed) 

(2-nd data card sloughed) 


(n-th data card sloughed) 

Program processing resumes with the next data case. The error codes assigned 
by the program are described by the following chart. 

ERROR 


CODE 

SUBROUTINE 

EXPLANATION . . 

2 

ADDZOH 

Adding the zero order hold circuit 
caused the continuous system to exceed 
the maximum allowable open poles at 
the origin. 

4 

BHA341 

The continuous system open loop 
transfer function had more than the 
maximum allowable poles at the origin. 

5 

COMPUT 

The program is attempting to compute 
the continuous system ooen loop 
transfer function but the character! sti 
matrix has not been defined. 

9 

COMPUT 

flo continuous system open loop poles 
have been computed. 

10 

COMPUT 

No continuous system nominal closed 
loop poles have been computed. 

11 

DATA 

Number of sample periods exceeds the 
maximum. 

12 

DATA 

Neither Z transformation with or 
without a zero order hold circuit 
has been requested. 

13 

DATA 

Program could not interpret a data 
input or processing request. 
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ERROR 

CODE 

14 


20 

21 


22 

23 


24 


25 


26 

27 

32 


33 

34 


SUBROUTINE 

DATA 

GENMTX 

GENMTX 

GENMTX 

GENMTX 

INITAL 

INPEST 

INPEST 

INPEST 

INPMTX 

INPMTX. - 
INPNYQ 


EXPLANATION 

User requested the program not to 
execute the nominal matrix and at the 
same time did not input parameter 
variations . 

The row or column designation of an 
element in the continuous system 
characteristic matrix is out of range. 

The number of non-zero polynomial 
elements in the continuous system 
characteristic matrix exceeds the 
maximum. 

The number of coefficients in the con- 
tinuous system characteristic matrix 
exceeds the maximum. 

The continuous system characteristic 
matrix has a zero row or column. 

A frequency interval exceeds the 

maximum allowable frequency of 

1_ H 7 where T equals the sample period. 

T L 

The program could not interpret the 
option to regain or input new eigenvalue 
estimates to the continuous system. 

The user requested to retain the previous 
case continuous system eigenvalue 
estimates but none exist. 

The number of continuous system eigen- 
value estimates is out of range. 

Program could not interpret request 
to retain the previous case nominal 
matrix or input a new matrix in 
either general or raw data format. 

User requested to use the previous 
case characteristic matrix, but none 
exists . 

Program could not interpret request 
to retain previous case, implement 
standard, or input new Nyquist data. 
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ERROR 


CODE 

SUBROUTINE 

EXPLANATION 

35 

INPNYQ 

User requested to use previous case 
Nyquist data, but none exists. 

36 

INPNYQ 

The number of Nyquist frequency inter- 
vals is out of range. 

37 

INPRL 

Program could not interpret request 
to retain previous cases, implement 
standard, or input new root locus data. 

38 

INPRL 

Sampled data root locus requested but 
neither gain nor phase root locus 
requested. 

39 

INPRL 

User requested to use previous case 
root, locus data, but. none exists. 

40 

INPRL 

Sampled data gain root locus requested 
as in the previous case but no gain 
variations exist in the previous case. 

41 

INPRL 

Sampled data phase root locus requested 
as in the previous case but no phase 
variations exist in the previous case. 

42 

INPRL 

Sampled data root locus plots requested 
as in the previous case but no plot 
specifications exist in the previous 
case. 

43 

INPRL 

Number of sampled data root locus gain 
variations is out of range. 

44 

INPRL 

Number of sampled data root locus phase 
variations is out of range. 

45 

INPRL 

Number of sampled data root locus plot 
frames is out of range. 

46 

INPRL. 

% 

Number of grids on a sampled root locus 
plot. frame is out of range. 

47 

MLTZRO 

Continuous system without a zero 'order 
hold circuit has three open loop poles 
at the origin. Such a system is 
restricted to a maximum of two. 

48 

MODZRO 

Continuous system without a zero order 


hold circuit has three open loop poles 
at the origin. Such a system is 
restricted to a maximum of two. 
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' ) 


} 


ERROR 


CODE 

SUBROUTINE 

EXPLANATION 

49 

PFEZRO 

Program' logic error in working with, 
the poles at the origin in the partial 
fraction expansion of the continuous 
system open loop transfer function. 

52 

PRINT 

Program logic error in storing the 
continuous system characteristic matrix 
elements. 

54 

RLOCUS 

Program logic error in storing the 
. continuous system characteristic matrix 
elements. 

56 

RUTER 

No eigenvalues computed in a sampled data 
gain or phase variation case. 

59 

SRRL 

No eigenvalues computed in a sample 
period root locus case. 

61 

VRYGEN 

Number of coefficients in the nominal 
characteristic matrix to vary in general 
format is out of range. 

62 

VRYGEN 

User attempted to vary a zero element 
in the nominal characteristic matrix 
which did not exist in the storage arrays. 
Input the zero coefficients in the nominal 
matrix prior to the variation. 

63 

VRYGEN 

A characteristic matrix element varia- 
tion had a row or column designation 
which was less than 1 or exceeded the 
matrix order. 

64 

VRYGEN 

User attempted to vary a coefficient 
in the nominal matrix that was. not 
previously defined in the storage arrays.. 
Define the coefficient as zero in the nomi 
pal matrix input prior to the variation. 

101 

AFTVAR 

Cannot restore nominal raw data parameter 
values since only a general matrix defi- 
nition is permitted. 

102 

BHA272 

Requested sampled data root locus but 
no Z-domain transfer function exists. 

103 

CSOLTF 

■ Sampling device location is outside the 


matrix dimension. 
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SUBROUTINE 

CSOLTF 

CSOLTF 

RAWMTX 

VRYRAW 

DATA 

SRRL 


EXPLANATION 


The matrix is ill -defined for an 
open loop zeros computation. 

The matrix is ill-defined for an 
open loop poles computation. 

User attempted to define a matrix 
by inputting raw data parameters. 

Only a general matrix definition 
is permitted. 

User attempted to vary raw parameter 
values off-nominal. Only variations 
of a general matrix definition are 
permitted. 

The user input a root locus request for 
a system without a zero order hold 
device which is illegal. 

Requested nominal case sampled data 
root locus calculations but no Z-domain 
transfer function exists. 


